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1. INTRODUCTION 


1 . 1 BACKGROUND 

A large number of flight test hours have been required to define 
the performance characteristics of modern aircraft using classical flight 
test techniques. Typically, cruise performance has been defined by 
generating extensive speed-power data while acceleration and flight 
trajectory performance has been defined from acceleration, climb, and 
descent tests throughout the flight envelope. An alternate method is 
to develop and verify a performance model using only a limited amount 
of acceleration/deceleration (quasi steady-state maneuvering) data 
to predict the overall one g performance characteristics of an 
aircraft. A substantial saving in flying hours as well as data 
reduction time would be realized compared to classical methods. In 
addition, the performance modeling approach would result in definition 
of baseline aircraft and engine performance characteristics allowing 
flexible application of the technique to a variety of situations and 
direct use of the data in applications such as aircraft simulation 
and correlation of wind tunnel results. 

Studies have been conducted by NASA and the Air Force to establish 
the potential of the performance modeling concept. Performance modeling 
was used by NASA with an F-104G and a YF-12C aircraft [1 and 2] and by 
NASA and AFFTC with an F-111A aircraft [3, 4]. These efforts used 
acceleration, ’ deceleration, and climb maneuvers at full military power 
and/or maximum (afterburner) power to generate a model which was used 
to predict flight trajectory performance characteristics for "off-test" 
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conditions at military or maximum power. Good correlation was achieved 
between the model and actual aircraft climb/acceleration performance, 
and recommendations were made for further development and evaluation 
of this concept in a dedicated flight test program which would define 
prediction accuracy and extend application of the model to partial power 
conditions. The effort outlined in this report was designed to satisfy 
those recommendations by extending development of the concept, develop- 
ing all applicable software and techniques, and conducting the needed 
flight test program. 

A survey of applicable background literature was accomplished to 
review past work in performance flight testing, including the methods 
used, data acquisition, and data reduction techniques [5]. The use of 
acceleration techniques to determine aircraft baseline performance 
characteristics has received increasing attention during the past 10 
years. Many of the references advocated the dynamic push-over, pull-up 
maneuver as an evaluation technique in addition to the quasi steady- 
state accel/decel maneuvers. However, because of the need for certain 
stability and control derivatives along with the I moment of inertia 

yy 

when using push-over, pull-up maneuvers, this program concentrated 
primarily on the quasi steady-state acceleration/deceleration maneuvers. 
Thus, the methods developed in this program were dependent on a minimum 
of additional information. Many of the references reduced dynamic data 
to drag polar form; however, inclusion of both power effects and Mach 
effects in the drag polar was not found in any of the literature. In 
addition, the use of baseline characteristics input to a modeling pro- 
gram for prediction of stabilized cruise performance as a check on the 
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overall process was also not addressed. The effort outlined in this 
report provided a straightforward method for determining aircraft per- 
formance which required limited instrumentation and knowledge of the 
aircraft but yet was capable of providing accurate results and signifi- 
cantly reducing flight time. It should therefore be applicable to a 
wide range of users including general aviation as well as highly 
sophisticated aircraft. 
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1.2 OBJECTIVE 


The objective of this program was to develop, evaluate, and verify 
a generalized aircraft performance modeling technique based on a limited 
amount of quasi steady-state flight test data. The performance model 
was then used to predict steady-state (cruise) and flight trajectory 
performance throughout the one g flight envelope. Evaluation and verifi- 
cation of the modeling techniques were accomplished by comparing model 
predicted performance with in-flight results. 

This effort was designed to advance the state of technology by 

1. Developing an overall methodology to improve performance 
modeling accuracy over techniques used in the past. 

2. Developing and evaluating a flight test technique capable 
of defining power-dependent lift and drag characteristics 
for the full range of power settings. (Successful definition 
of power effects was a fundamental requirement for developing 
the accurate performance predictions typically needed for 
flight manuals, engineering documentation and simulators.) 

3. Developing a modeling technique to predict the stabilized 
cruise performance characteristics of the aircraft directly 
from acceleration/deceleration data. 

4. Extending application of performance modeling to acceleration, 
deceleration and climb maneuvers at any power setting so that 
realistic flight trajectories involving variable airspeed/ 
altitude/throttle setting conditions can be accurately pre- 
dicted . 
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5. Developing and evaluating a simplified in-flight thrust and 
airflow calculation method which was not dependent on exten- 
sive engine instrumentation. 

6. Defining the accuracies associated with the above techniques 
based on comparison of model predictions to actual in-flight 
data. 

7. Developing an overall methodology for realistic utilization 
of the modeling approach which includes requirements for 
instrumentation and flight maneuvers, definition of calibra- 
tion tests, application of the engine performance prediction 
deck, and definition of applicable software. 
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2. PROJECT HISTORY 


This program began with the submission of a proposal to NASA Ames- 
Dryden Flight Research Facility in February 1982. The proposal outlined 
a three-phase effort consisting of 


1. 

Phase 

I: 

Planning and Development of Analytical Tools. 

2. 

Phase 

II: 

Flight Test. 

3. 

Phase 

III 

: Reporting. 


A detailed task breakdown for each phase is presented in Reference 6. 
Funding for Phase I was requested in the initial proposal and was 
received from NASA Ames-Dryden, via Grant NSG 4028, with work officially 
beginning in late spring of 1982. Phase I was concluded in October 1982 
with the submission of a detailed Flight Test Plan, KU-FRL-577-1 [5]. 

A proposal covering the Phase II effort was submitted in July 1982. 
Approval for this effort was received in late 1982 via a continuation 
of Grant NSG 4028. Phase II was completed in August 1983. 

Phase III was primarily directed at preparation of the Final 
Report. It began with a presentation of preliminary flight test 
results to a review group at NASA Ames-Dryden in August 1983. Comments 
from this review were then used to assist in the Final Report writing 
effort. Submission and presentation of the Final Report were the last 
major efforts in Phase III required to bring the program to completion. 
The overall program schedule is presented in Figure 2.1. The support 
organizations which played a direct role in this effort are discussed 
in Appendix A. 
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Phase I 


1982 1983 

AMJJASON D / J F MAMJJASOND 


Literature Survey 

Software Development /Checkout 
(Honeywell) 

Engine Deck Development 

Instrumentation System 
Definition 

Flight Test Plan Preparation 

Flight Test Program Planning/ 
Coordination 

Phase II 

Software Transfer /Development/ 
Checkout (SEL) 

Model 35 Flight Test Program 

Model 35 Data Reduction/Analysis 

Model 55 Thrust Calibration 
Tests 

Performance Modeling 
Phase III 

Interim Program Review (NASA) 
Report Preparation 
Final Briefing (NASA) 

Figure 



2.1: Program Schedule 



3. APPROACH 


3.1 GENERAL 

The flight test program consisted of 17.4 flight hours with an 

instrumented Lear jet Model 35 business jet (Figure 3.1) in the cruise 

configuration to develop and evaluate the performance modeling approach. 

The Lear 35 is a subsonic, twin-jet aircraft, certified to FAR 25. A 

*> 

three-view drawing is presented in Figure 3.2. The aircraft has a 
swept wing with low drag laminar flow airfoil, tip tanks, twin Garrett 
Air Research TFE 731-2 turbofan engines which are pod mounted on the 
aft fuselage, and a completely flush-riveted fuselage and wing struc- 
ture. The TFE 731-2 engine is a twin spool turbofan with a 2.67 bypass 
ratio and a maximum thrust of 3,5000 lbs each. The Lear 35 has a 
maximum gross weight of approximately 18,000 lbs, and the flight envelope 
is presented in Figure 3.3. Table 1 presents additional Lear 35 specifi- 
cations. The test aircraft was equipped with a flight test nose boom 
and was operated by the Gates Learjet Corporation. The aircraft was 
based at the Learjet facility in Wichita, Kansas, during the program. 

Table 1: Lear 35 Specifications 


Maximum Mach Number 

.83 


Long Range Cruise Mach Number 

.73 


Normal Cruise Mach Number 

.77 


Maximum Certificated Operating Altitude 

45,000 

ft. 

Service Ceiling 

42,500 

ft. 

Usable Fuel Capacity 

6172 lbs. 


8 




Figure 3.1 


Gates Learjet Model 35 Aircraft 


f ¥ 

(-"8 ft. 3 in.-] 

38 ft. 2 

— 39 ft. 6 


,V 


in. 

in. 


Figure 3.2: Gates Lear jet Model 35 Three-View 
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3.2 ANALYSIS TECHNIQUES 


3.2.1 CONCEPT 

The first step in developing an overall aircraft performance model 
was the definition of baseline aerodynamic and propulsion system char- 
acteristics. Baseline aerodynamic characteristics consisted primarily 
of the lift and drag models, while baseline engine characteristics 
included the gross thrust, fuel flow and airflow models. 

A new dimension of this program concerned in-flight definition 
of the aerodynamic effect of thrust level on lift and drag character- 
istics which heretofore had not been possible. Normally lift and drag 
measurements are accomplished using a series cf stabilized points 
throughout the aircraft flight envelope. A wide range of engine power 
settings are used to achieve the stabilized conditions from which lift 
and drag may be determined given an in-flight thrust and airflow model 
along with normally instrumented aircraft parameters such as weight and 
angle of attack. Unfortunately, the flow field around the aircraft 
may be significantly altered by the airflow through the engine (s) which 
will result in the lift and drag characteristics being directly depen- 
dent on engine power. If the stabilized point method is used on an 
aircraft where power effects are significant, use of the resulting data 
to predict nonstabilized (i.e. excess thrust not equal to zero) per- 
formance characteristics will be susceptible to significant error. 

As a result, this program developed a flight test technique to evaluate 
efficiently the effect of engine power setting on the lift and drag 
characteristics of an aircraft. The technique utilized quasi steady- 
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state maneuvers (level accelerations and decelerat ions) at selected 
power settings throughout the Mach range of the aircraft to define 
lift and drag coefficient variation as a function of angle of attack, 
Mach number and power setting. 
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3. 2. 1,1 Aerodynamic Characteristics 

Development of the lift and drag characteristics from quasi steady- 
state maneuvers began with consideration of the forces acting on the 
aircraft. The aircraft force balance equations resolved parallel and 
perpendicular to the flight path (assuming zero sideslip, wings level, 
and constant mass) are, from Figure 3.4, 

F = ma 
x x 

w w 


w 


F cos (a + X) - F - D = W( 1 siny) 

g r g 


F = ma 
z z 

w w 


L + F sin (a + X) = W( — — + cosy) 
g g 

As discussed in Reference 6, the flight path load factors resolved 
along the x and z wind axes are 

a 


w 


+ siny 


w 


w 


Z w g 


+ cosy 


The force balance equations may be expressed as 


F cos(a + X) - F - D = Wn 
g r x 


w 


L + F sin (a + X) = Wn 
8 


w 


( 1 ) 

( 2 ) 
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Since 


dh 

V siny = — & = Rate of Climb 
dt 

and 

dV 

a x dt’ 
w 

Equation (1) can also be written in terms of rate of change of energy 
height as 

(F cos (a + X) - F - D) V dh 


JL 


W 


V dv = . 


dt g dt 


(3) 


From Equation (3), the excess thrust, F cos(a + X) - F - D, is seen to 
r g r 

be a direct function of rate of climb and the acceleration/deceleration 

of the aircraft. Consequently, acceleration and deceleration maneuvers 

were used to define the excess thrust throughout the flight envelope; 

and the drag could in turn be determined after F and F were defined. 

g r 

By also calculating the lift utilizing Equation (2), a wide range of C L 
and C Q points could be generated in a single accel/decel maneuver; and 
several of these maneuvers were combined to establish lift and drag char- 
acteristics as a function of Mach number, angle of attack, and power 
setting. 

To determine F^ and F^, contractor-predicted data which incorporated 
installation effects and which were adjusted with a ground thrust run 
were used. Overall development of the engine model is discussed in 
Section 3. 2. 1.2. 

With the methodology established for calculating F^ and F^ , the 
lift and drag coefficients for a particular data point could be calcu- 
lated utilizing Equations (1), (2), and (3) combined with flight path 
acceleration data: 
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( 4 ) 


Wn z - F sin (a + X) 

w 


"k / C 


2 VP a M ; ! S 


S • 


F cos (a + X) - F - Wn 
8 I r T 

I ™a“ 2s 


(5) 


or 


C D = 


F cos (a + X) - F - 77 (h) 
a v ' r V e 

J T _T 


| YP a M 2 S 


( 6 ) 


where F and F refer to the total values of gross thrust and ram 
g T r T 

drag for both engines. The A/C subscript on C L refers to "power off" 
conditions, since the effect of the thrust force was considered in the 
calculation. Wind axis load factors were determined from accelerometers 
mounted on the body axis of the aircraft using appropriate angular trans- 
formations. Trim adjustments to C T have not yet been made for thrust 

l a/c 

moment effects or nonstandard c.g. 

To remove thrust effects completely, the effect of the associated 

moments created by the thrust (F ) and ram drag (F ) about the c.g. 

must be removed. From Figure 3.5, this moment is given by 

AM , = - F Z , +Fh. 

thrust g T thrust r T r 


To counteract this moment, an incremental lift at the tail is needed, 
such that 

-AL - F Z , + F h =0 

tail tail g^, thrust r^ r 

and the change in lift coefficient which must be added to C is 

L A/C 

- AL tail^ S ’ ° r ■ 


AC 


thrust 

moment 


(F Z , - F h ) 

g T thrust r T r' 

£ . , qS 

tail M 


( 7 ) 
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Figure 3.5: Thrust Moment Vectors 




The trimmed lift coefficient (C ) then becomes 

L T 

A/C 

C L = C L + AC L 

T A/C A/C thrust 

moment 


( 8 ) 


The distance Z t h rust is a function of c.g. and airframe geometry, while 

h^ and £ ate also functions of angle of attack. A detailed derivation 

of the required trigonometric relationship is presented in Appendix B. A 

thrust moment correction to was not made, since in this program the 

correction was very small and aircraft drag characteristics were defined 

as a function of power setting. A review of the flight test data showed 

that this was justified, since the maximum value of AC^ experienced 

thrust 

moment 

was .003, which resulted in a "worst case" impact on of less than 
two drag counts (.0002). 

C T was standardized to a particular c.g. location so that all 

L T 

A/C 

data were "normalized" to the same c.g. configuration. From Figure 3.6 
and the Appendix B diagram for this correction begins with a 

moment balance: 

AL . = L ... [test c.g.] 

wing tail tail 

L . (A - Ac . g. ) = Z (L ... + AL [standard c.g.] 

wing b tail tail 

where AL ... 'is the change in tail lift required for a standard c.g. 

la 11 


Since 


Z = £ + Ac.g. [Ac.g. measured parallel to V] 

La 11 


L„ •I 2 ’,. • - L . Ac.g. = (£. .. + Ac . g . )L . . + (£ .. + Ac.g. )AL ... 

tail tail wing 6 tail tail tail tail 

With the total aircraft lift (L) given by 


L = L . + L . . 

wing tail 


for the test condition, we have 
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-UAc.g.) = u tail + z S c.g.)AL tail 


AL 


_ -L (Ac.g. ) 

tail £ + Ac.g. 

tail & 


In coefficient form 


AC, 


-C (Ac.g.) 

= t a/c 

■eg. " <W + 4c -s-> ' 


( 9 ) 


and the standardized corrected for thrust moment effects and to a 


standard c.g. is 


C L = C L 

L s l t 


+ ac t 


( 10 ) 


A/C 


c.g. 


Reference 6 provides a method for correcting C^ for nonstandard c.g. 
which utilizes wind-tunnel data to predict the trim drag increment 


based on AC, 


. Since this correction is generally small and the 


c.g. 


required wind-tunnel data were not available, a trim drag correction 
to Cp was not made for nonstandard c.g. in this program. The ^ 
variation during testing was generally less than ±1 percent I1AC, and 
consequently the error was considered negligible. The flight data 
confirmed that the assumption was valid. The maximum value of AC^ 

c.g. 

experienced was .005, which resulted in a "worst case" impact of less 
than 3 drag counts (.0003) on Cp. 

A correction to the drag coefficient was then made for skin fric- 
tion variation as a function of Reynolds number. Schlichting' s formula 
for the skin friction coefficient assuming turbulent flow [7] was used. 

.455 


C f = 


(log 10 R e ) 2 ’ 58 (l +.144M 2 )* 65 


R -<**. 
e y 


l = characteristic length; 

y = viscosity coefficient. 
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The drag coefficient due to skin friction was then 
„ „ r Wet ted Area., 

V f s 

where the drag contribution of the aircraft components was broken down 
according to Table 2. The Reynolds number calculation used the charac- 
teristic length for each component, and the applicable wetted area was 

used to calculate CL . The skin friction drag contributions were then 

SF 

standardized to an altitude of 25000 feet by computing C. and 

. 25000’ 

CL and defining the incremental change in drag coefficient due to 

SF 

25000' 

skin friction variation for off-standardized conditions as 


ac d C D 
SF SF 


- C 


S.F. 


25000’ 

This methodology was used for each of the aircraft components; and the 


total skin friction drag correction, ACp , was obtained by summing 


SF 

total 


the contribution of each component. 
AC 


-'D 


SF 

total 


= AC + AC + AC + AC 

"" SF SF SF 


SF 

fuselage 


wing 


SF 

h. tail 


v. tail 


+ + ac d 

SF 

pylon 


+ AC. 


SF 

nacelles 


SF 

ventral fin 


+ ac d sf +AC d 

tank 


SF 

tank fin 


The standardized drag coefficient, C^ , was then 

S 


C D S - S + % 


(ID 


total 
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An altitude of 25000 feet was chosen for standardization, since it 
was approximately in the middle of the altitude envelope of the air- 
craft. As a result, the magnitude of ACL was relatively small 

U SF 

total 

with a maximum absolute value of less than 12 drag counts (.0012), which 
was determined from flight test data throughout the program. 

Table 2: Wetted Areas and Characteristic Lengths 

Applicable to Skin Friction Drag Correction* 


Component 

Wetted 
Area (Ft 2 ) 

Characterise 
Length (Ft ) 

Fuselage 

520 

46.2 

Wing 

402 

6.8 

Horizontal tail 

107 

3.7 

Vertical tail 

73 

7 

Engine pylons 

25 

7 

Engine nacelles 

140 ■ 

7.8 

Ventral fin 

11 

7 

Tip tanks 

125 

14.4 

Tank fins 

7 

1.1 


*Figures provided by Gates Learjet Corporation, January 12, 1983. 

C and C versus angle of attack characteristics were defined 

L S D s 

from a series of test points obtained during accel/decel maneuvers. 

As discussed previously, these characteristics were defined as a func- 
tion of power setting (based on eight specific test values of N^) and 
Mach number. The needed C L range was obtained through variation of 
the weight -pressure ratio (W/6). By determining the lift and drag 
characteristics as a function of eight test power settings, the power- 
dependent effects could be defined when comparing data for the same 
Mach number and angle of attack. 
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3. 2.1. 2 Engine Characteristics 

Prediction of in-flight thrust and airflow is essential to the 
definition of aircraft lift and drag characteristics as seen in Section 
3. 2. 1.1. The three most commonly used approaches for determining in- 
flight engine characteristics are 

^ 1. The direct application of the engine manufacturer's theoretical 

engine prediction deck, 

2. The application of a gas generator analysis, 

3. The measurement of thermodynamic parameters at the inlet and 
exit stations of the propulsion system. 

The first method is the easiest to implement but the least accurate 
because it may not include engine installation effects and represents 
only the performance of the manufacturer's nominal engine, not the one(s) 
installed on the test aircraft. The second method requires many measure- 
ments internal to the engine which are then used to compute the exhaust 
conditions and hence the thrust. The last and oldest is the direct 
measurement of inlet and exit pressure and temperature to estimate the 
thrust without regard to what takes place in between these two stations. 
This method also requires considerable instrumentation including a tail 
pipe probe. 

A simplified in-flight thrust and airflow prediction technique was 
developed as part of this effort which was called "Thrust Modeling." 

It was designed to complement the overall performance modeling approach 
and provide several advantages over the other methods. However, the 
performance modeling methodology developed herein can utilize the other 
methods as well, and thus future programs are not constrained to manda- 
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tory use of the "Thrust Modeling" technique. "Thrust Modeling" required 

few special sensors and provided answers that were believed to closely 

approach the accuracies of the gas generator and tail pipe probe method. 

without their associated complications. 

The in-flight engine model consisted of 1) corrected thrust (F / 6 ), 

g t 2 

2) corrected fuel flow (W f //6 6 '), and 3) corrected airflow (W /6 /6 ) 

r C 2 c 2 a c 2 t 2 

which were calculated and plotted versus corrected RPM (N. / /6 ) for con- 

2 

stant Mach number. Curve fits and table look-ups were used to represent 
these data as a function of Mach number throughout the Mach range. 

"Thrust Modeling" consisted of three distinct steps: 

1. Simplified representation of corrected thrust, fuel flow, and 


airflow as a function of corrected RPM and Mach number based 


on engine deck predictions, 

2. Correction of the engine deck model to the individual charac- 
teristics of each test engine based on a ground thrust run, 

3. In-flight correction of thrust and airflow predictions based 
on actual fuel flow and an accurate specific fuel consumption 
prediction . 

In the first step, an engine prediction deck for the TFE 731-2 

engine was obtained from the Garrett Turbine Engine Company; and engine 

installation effects consisting of the inlet pressure recovery factor, 

bleed requirements and horsepower extraction were defined by the Gates 

Lear jet Corporation. The engine prediction deck was a computer program 

developed by Garrett which predicted thrust, fuel flow and airflow 

characteristics given altitude, Mach number, RPM and installation 

effects. The engine deck was run for the conditions presented in 

Table 3, and the output data were corrected to standard form (F /c , 

g 
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Table 3: Test Runs for Engine Deck Combined 

with Installation Effects 



Note : 

Each run included 

a) incrementing by 5% from idle to 21000 RPM 

b) Matching on idle power 

c) Matching on max continuous power. 
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W f //s 6 , W i^6 /S ) and then plotted versus corrected RPM (K / >^6 ) 

£ ^2 ^ t 2 ^ ^2 
for a constant Mach number. The conditions presented in Table 3 were 

designed to evaluate the engine throughout its Mach, altitude and RPM 
ranges. For corrected thrust and corrected airflow, Mach number and 
corrected RPM were the only two independent variables present; and 
consequently the deck predictions formed one curve for a constant Mach 
number. Figures 3.7 and 3.8 present typical data for corrected thrust 
and corrected airflow at .45 Mach.' An averaging program and cubic 
spline program as described in Appendix C were then used to define ap- 
propriate table look-up values at every ^00 RPM increment of corrected 
RPM. This approach was not successful for engine deck fuel flow pre- 
dictions due to altitude dependency after reduction to standard cor- 
rected form. Figure 3.9 illustrates this problem for Mach .45. The 
altitude dependency for fuel flow was discussed with the Garrett Turbine 
Engine Company. Representatives of Garrett stated that the altitude de- 
pendency was due to bleed valve scheduling in the near-idle RPM range and 
to Reynolds number effects. To maintain all engine data in a similar 
format and preserve the analysis methodology, a unique representation for 
corrected fuel flow characteristics was developed to collapse altitude 
variations onto one curve as a function of corrected RPM and Mach. This 

representation consisted of defining a nonstandard corrected fuel flow in 
j— N 

the form W f //0 6 , where N is a function of Mach number and represents 

t t 2 t 2 

the power of delta required to eliminate the altitude dependency of 
corrected fuel flow. An empirical approach was used to determine the 
most desirable value of N for each cardinal Mach number. (A cardinal 
Mach number was each even .05 Mach increment as defined in Table 3.) 
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Figure 3.7: Engine Deck Corrected 
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Figure 3.10 illustrates how the nonstandard corrected fuel flow was 
used for N = .96 to eliminate the altitude dependency seen in Figure 
3.9 for .45 Mach. Figure 3.11 presents the fuel flow plot for .45 
Mach and N = .88 which was also evaluated in leading up to the final 
selection of .96 for N. Table 4 presents the optimum values of N 
determined during this program as a function of Mach number. The 
final deck thrust, airflow and fuel flow curves are presented in 
Appendix D. The three engine parameters were then available in table 
look-up format as a function of corrected RPM and Mach which eliminated 
dependency of the flight test data reduction software on in-line engine 
deck computations. This greatly improved data turnaround and reduced 
computer time as well as provided the engine deck data in a format 

J 

suitable for the corrections applied in the next two steps. 

Step two consisted of modifying the engine deck curves based on 
the individual characteristics of each test engine recorded during a 
ground thrust run. This step was needed, since the engine deck predic- 
tions represented an average engine, and significant variation from 
average engine characteristics is common due to the wear and uniqueness 
of each individual engine. The thrust run procedure and results are 
documented in Sections 3.3.2 and 4.1.2. A correction parameter, n, 
was developed based on the ratio of thrust run specific fuel consumption 
to engine deck specific fuel consumption which could easily and accu- 
rately be used to adjust the deck predictions throughout the Mach 
range based on the thrust momentum equation. The correction parameter 
was defined as 
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N, Used for 


Table 4 : Power of 6 , 

t 2 

Nonstandard Corrected Fuel Flow 


Mach N 


0 

.97 

0.05 

.98 

0.10 

.98 

0.15 

.98 

0.20 

.98 

0.25 

.97 

0.30 

.97 

0.35 

.96 

0.40 

.96 

0.45 

.96 

0.50 

.96 

0.55 

.96 

0.60 

.91 

0.65 

.91 

0.70 

.91 

0.75 

.91 

0.80 

.91 

0.85 

.91 
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n 


TSFC 


TRP 


TSFC 


D 


W f F 

TRP g D 

W, F 
f e 
D S TRP 


( 12 ) 


where TRP = thrust run predicted 
D = engine prediction deck. 

"n" was defined as a function of corrected RPM from the thrust run data. 
Actual adjustment of the corrected thrust, fuel flow and airflow engine 
deck curves based on the thrust run was accomplished in conjunction with 
the in-flight correction discussed in step three. A unique feature 
of using the n correction parameter was that airflow as well as fuel 
flow and thrust corrections to the engine deck predictions could be 
made using one correction parameter as shown in the next paragraph. 

The third step applied a final correction to thrust and airflow 
based on actual in-flight measured fuel flow. The procedure recommended 

r, 

in Reference 1 was used to correct the thrust run predicted (TRP) data 
based on the ratio of test fuel flow to predicted fuel flow. Experience 
with in-flight thrust measurements on the XB-70 showed that the 
predicted specific fuel consumption was generally accurate within 
5 percent of the measured value, even though the measured thrust did 
not usually agree with the predicted thrust. The TSFC prediction was 
considered the most accurate prediction available and formed the basis 
for the final correction applied to the thrust characteristics. This 
correction procedure was also used by the F-104G and F-lll programs. 

The following relationships can be derived from the fundamental assump- 
tion that predicted that TSFC is accurate. 


tsfc trp 


f 

TRP 

F 

g TRP 



(13) 
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w. 


w 


1 — .F 

f TRP STRP 


(14) 


Prediction of the ram drag, F , is directly dependent on the airflow 
which must be subjected to the same analysis. Since, from the thrust 
momentum equation, 

W V (W + W r )V 
„ _ • tT e °° a f » 

F = m V = = 

g e oo g 


and 


(W„ 


+ W, 


g 

)V 


TRP 


'TRP 


"TRP 


W, 


W, 


(VJ 


+ w. 


)v 


TRP 


TRP 


W, 


'TRP 


"TRP 


W, 


w. 


'TRP 


W 


Wf IRP ^ 


+ W, 


8, 


g 


(15) 


The 00 subscript refers to the section of the engine wake where the 
pressure of the engine exhaust gases is first equal to the pressure 
of the surrounding atmosphere. From Equation (15), consistant appli- 
cation of the TSFC assumption (13) requires that contractor-predicted 
airflow also be corrected with the ratio of test to predicted fuel 
flow. 

W r 


W 


W 


W f_ DI> a TRP 
TRP 


(16) 


and the ram drag is 
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F 

r 


t 


W V 
a 

t 


g 


W, 


W 


TRP 


W, 


'TRP 


(Reference 6) 


(17) 


where V is the free-stream velocity. 

Combining the above results with definition of the correction 
parameter n, Equation (14) becomes 


and, for each engine, 


W, 


W r F 
f t S D 


Wf g T pp n w 

trp TRP f r 


W, F 


(18) 



W, F 

_v 

n * D 


D 


where R ■+ Right engine 
L -> Left engine. 

As seen from the above equations, prediction of in-flight thrust was 
only dependent on the engine deck predictions of thrust and fuel 
flow, measurement of test fuel flow and the correction parameter n. 
Development of the in-flight airflow equation begins with consideration 
of the thrust momentum equation for the engine deck predictions: . 



W V 
0 00 

g 


(w + W f )V 
a D D 


oo 


g 
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Since 


W F 
t TRP g D 


g TRP n W f 


and , 


using a development similar to that for F , the equation becomes 

8 *- 


W r (W + W r )V 

f a f a 

TRP D D 


g TRP nW f, 


g 


or 


’TRP 


W f W W 
TRP 3 P t TRP 

nw r n 


Solving for V , 


* g 


g 


V = 


TRP 


«> W W W 

f TRP a D TR 

1 T)W r ’ n J 


D 


Since 


( 19 ) 


[W + W, ] V W V + W, V 

A r co a oo f o 

TRP TRP TRP TRP 


’TRP 


g 


g 


the equation may be solved for the airflow experienced during the thrust 

run, W , 

TRP 


W 


= _g_ 


[F 


W- V gF 

f » 6 g. 


a TRP V “ g TRP g 


-] - 


v ’ W f™ 

» TRP 
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Substituting in Equation (19), 


W 

a TRP 





13 


and from Equation (16) , 


W 

a 


t 



W 

a TRP 



W 

i-5l 

l nw 



1 ] 


For each engine: 


( 20 ) 


( 21 ) 




W 




1 ] 




w 


V’f 


D 



- 1 ] • 


Prediction of in-flight airflow was then only dependent on the engine 
deck prediction of airflow and fuel flow, measurement of test fuel flow 
and the correction parameter n . Development and implementation of the 
airflow prediction technique was unique to this program. It provided 
a more accurate prediction of airflow than total reliance on engine 
deck predictions and did not require extensive inlet instrumentation. 
When implementing Equations (20) and (21), careful attention must be 
given to balancing units. Airflow is normally expressed in lbs/sec; 
and, as a result, W f and W, must be converted to lbs/sec for the 
units to balance. Fuel flow is normally defined in lbs/hr. 
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3. 2. 1.3 Summary 


The data analysis procedures outlined offered several advantages 
over conventional analysis techniques. Flight test data from level 
acceleration and deceleration maneuvers are normally used primarily 
to predict standardized climb and acceleration performance in the form 
of P g (specific excess power) plots and rate of climb versus airspeed^ 
attitude plots. Aircraft motion in the form of climb and/or accelera- 
tion is both the observed and the "end product" parameter; and conse- 
quently, the flight test data must be corrected for nonstandard 
temperatures, wind, acceleration, and weight effects to obtain stan- 
dardized performance (Reference 8) . The analysis procedures used in 
this program went one level beyond the aircraft motion parameters of 
climb and acceleration. Aerodynamic data were reduced to lift and drag 

coefficient form; and engine data were reduced to the normalized F , 

8 

W, , and W form. Consequently, it was not necessary to standardize 
r 3 

the aircraft motion parameters; and a great amount of information re- 
garding all aspects of aircraft performance was available. Cruise 
performance, flight trajectory performance, and climb/acceleration 
characteristics could be determined using the performance modeling 
programs discussed in Section 3.2.4; and the data were in an ideal 
format for input to aircraft simulations. In addition, the in-flight 
thrust and airflow prediction technique ("Thrust Modeling") provided 
three principal advantages over methods in the past: 

1. Extensive engine instrumentation such as that needed with 
the gas generator method was not required. 
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2 . 


The need for on-line engine deck computations as part of 


the flight test data reduction software was eliminated. 

3. A significant improvement in accuracy was achieved over 

methods which rely completely on engine deck predictions. 

The logical next step in the further validation of the "Thrust Modeling" 
technique is the evaluation of test engine performance characteristics 
in an altitude test cell such as the NASA Lewis Facility. This effort 
would establish the accuracy of the prediction technique with a one-to- 
one comparison of test cell and in-flight data. Based on data obtained 
from the F-104G, F-lll and YF-12 programs (References 1-3), "Thrust 
Modeling" was believed to have an accuracy of three to five percent, 
which is generally considered in the state-of-the-art range. 
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3.2.2 Data Flow 


The flight test instrumentation system recorded all performance re- 
lated parameters in a digital format at a sampling rate of approximately 
10 samples/sec. A detailed description of the instrumentation system, 
calibration routines, and initial data processing is presented in Section 
3.5. An overall flow diagram for the data management system is illus- 
trated in Figure 3.12. The top four blocks accomplished standard cali- 
bration and sensor compensation procedures to transform raw data to 
appropriate engineering units format in the Flight Test Data Base (FTDB) 
file. This subsection will primarily discuss data flow and methodology 
beginning with the FTDB and extending to definition of baseline aerodynamic 
and engine data products. At this point, the performance modeling programs 
could be exercised using the baseline data products as primary inputs. 

A detailed flow diagram of data reduction from the FTDB to baseline 
data is presented in Figure 3.13. The Flight Test Data Base contained 
36 time-varying performance parameters, and an aircraft I.D. file pro- 
vided an additional 8 aircraft unique constants as shown in Figure 3.13. 

The gross thrust (F ) in the FTDB- has had the fuel flow and n corrections 

8 

applied in accordance with Equation (18), and airflow (W ) had the same 

a 

corrections applied in accordance with Equation (21). Ram drag was 

calculated with Equation (17), and the body axis accelerations (n , 

^body 

n , n ) had been corrected for off-c.g. location of the accel- 
y 7 Z 
■'body body 

erometers (Section 3.2.6). Parameters from the FTDB and aircraft I.D. 
file were processed according to the methodology shown in Section 3.2.1 
to form Performance Data File I. The START program presented in 
Appendix C was used for these computations. 
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Quick 

Look 


Figure 3.12: Data Management System 


43 












i* 


The parameters in Data File I were calculated for each sample time 
during a performance maneuver and stored. Data File I was continually 
expanded as additional flights were accomplished. 

The next step in the data flow was to plot and curve-fit selected 
parameters from Data File I versus Mach number for an entire maneuver. 
This served two purposes. First, a continuous Mach history was produced 
for a maneuver based on limited segments of data (see Figures 3.14 and 
3.15). Since the acceleration/deceleration maneuvers were typically 
quite long in duration (up to 8 minutes), only limited segments of data 
were recorded periodically throughout a maneuver so as not to saturate 
the data recording system. Second, occasional difficulties with noise 
and/or turbulence could be readily detected and smoothed. Each param- 
eter was then recorded at each cardinal Mach within a given maneuver. 
Cardinal Mach numbers were from .25 to .8 in .05 Mach increments. 

Data File A consisted of twelve subfiles, each for a cardinal Mach, 
which were expanded as each maneuver was reduced. 

The next step was to access all data from File A at a specific 
Mach number and plot 


a) 

b) 

c) 


W, 


w 


/5 vs N,/ /0 
2 2 

//0 6 N vs N^/eT 

It 


/e~/5 vs V/eT - 
t 2 t 2 i 


A curve was then fit through each data plot to define the applicable 
engine characteristics. The lift and drag coefficient data were also 
accessed from File A for a specific Mach number and were then separated 
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by power setting based on N . For each power setting, C T versus u 

-L . 

A s 

and Cp versus a were plotted and a best fit curve applied. The power 
s 

effects on and were then analyzed and defined. Next, the Mach 
s s 

number was incremented and the same procedure followed for the entire 
Mach range. 

The data flow provided a logical processing of flight test data 
and a timely comparison and assessment of "new" data in relation to 
data that had been obtained on previous flights. This allowed an 
awareness of important trends in the data and also served as a check 
on the instrumentation system and other factors that directly affected 
data quality. 
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Figure 3.13: Performance Modeling Data Flow 
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Figure 3.13: (continued) 
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3.2.3 Conventional Data Reduction 


In addition to the data reduction techniques developed in Sections 
3.2.1 and 3.2.2, conventional data analysis techniques were applied to 
the stable point and pull-up, push-over, pull-up maneuvers for comparison 
with the performance modeling predictions. These maneuvers are described 
in Section 3.4. 
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3. 2. 3.1 Stabilized Points 


Stabilized point data were used to define steady-state cruise 

performance characteristics in terms of corrected RPM (N //6 ), range 

1 2 

factor, specific range, and specific range parameter versus Mach for 
constant W/6 values. The range parameters were defined by 


Range Factor (RF) = — 

W 

T 

V 

Specific Range (SR) = — 

w 

T 


Specific Range Parameter 


(SRP) = ^ 
W f 


where V = true velocity in knots. 

W « total in-flight fuel flow for both engines in lbs/hr. 

T 

W = aircraft weight in pounds. 

Since the stable points were obtained for a range of pressure and 
temperature conditions as W/ 6 was held approximately constant, a nominal 
altitude was chosen for each target value of W/6 and associated standard 
values of 6 and 0 defined so that range factor and specific range could 
be standardized. Standardization began by defining standard values of 
fuel flow and true velocity as 


W, 


W, 


- (- 


std 


6 /e" 


t 2 t 2 




V = v — 
std test! 6 


std 


test 


(Reference 9) . 


♦v 
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Standardized range factor and specific range were then defined as 


V jW 6 _■ 

pf = std = pf ,_t£st 

std V test^6 

f std 

std 


SR std " ^ = SR test£*f > 1 
f std 
std 


( 22 ) 


(23) 


All stable point data were standardized using these equations so that 
valid comparisons could be made with the ITERATE program (Section 
3.2.4. 1) predictions. Standardization was not required on corrected 
RPM, since 


■ v<*Vstd 

as discussed in Reference 9. In addition, specific range parameter 
did not require standardization, since 


(SRP) 


V 6 
std std 


std W, 


= (SR ) '6 = ( SRP ) . 

std std test 


std 


The test value of W/6 was held to within ±1% in flight, which made the 
corrections for off-W/6 negligible. 



3. 2. 3. 2 Pull-Up, Push-Over, Pull-Up 


Push-pull data were used to obtain additional definition of and 

s 

Cp versus angle of attack characteristics over a wide range of angle 
s 

of attack. Although the techniques developed in Section 3.2.1 were 
used to reduce the data to coefficient form, the push-pull maneuvers 
were included in the conventional data reduction section, since they 
were not specifically necessary to the overall definition of one g per- 
formance characteristics using the performance modeling approach. 

Push-pull aerodynamic data were compared with those obtained from 
0 

accel/decel maneuvers to evaluate the. correlation between techniques. 
Since a push-pull maneuver involved angular rates and accelerations 
which required an incremental change in elevator deflection (6 g ) to 
sustain the maneuver, a correction was made to standardize the data. 

From Reference 10, the change in elevator position may be determined 
from the equation 



The first term in the above equation gives the change in <5^ needed to 

• 

account for a pitch rate (q) , the second for a pitch acceleration (q) 
and the third for a nonstandard center of gravity. During this program, 
the push-pull maneuvers were deliberately performed very smoothly and 
slowly to minimize the pitch angular acceleration and consequently 
reduce the second term to near zero. Since the moment of inertia 
(lyy) may typically not be known with a great deal of accuracy, this 
was considered a practical approach for comparison purposes. In 
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addition, the third term was eliminated, since the correction for 

nonstandard c.g. was already made in the normal data flow (Equation 9). 

As a result, the equation for A6 g simplified to 

(C + C )qc 
m m* 

A6 = 9_ 2 

e C 2V 
m „ 


and 


AC, = C T A 6 
L a L r e 

A. 6 

6 e 

e 


C L =C L 
s s 


+ AC 


push 

pull 


V 

e 


where C , C , C and C T as a function of Mach, were obtained 
m m* * m. L. * 

q a 6 6 

^ e e 

from predictions.* A similar correction to C D was not made due to 

s 

the negligible magnitude of C . The angle of attack was also 

\ 

corrected for angular rate using 


Aa = tan 


-1 q£ 


and 


a 


rate 
corrected 


= a + Aa 


where £ represents the distance between the c.g. and the nose boom 
angle of attack vane. 


*Aerodynamics Document for the Gates Learjet Model 35A/36A, 
Kohlman Aviation Corporation, by D. L. Kohlman, Report 82-01, 
March 1982, proprietary. 
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3. 2. A Performance Modeling 


The baseline aircraft /engine data presented in Figure 3.23 formed 

the basis for calculating overall aircraft performance. The baseline 

data were utilized in two computer prediction programs for this purpose. 

The first program, ITERATE, calculated steady-state cruise performance 

in terms of corrected RPM (N.. / /6 ), range factor, specific range and 

1 t 2 

specific range parameter versus Mach for constant values of W/S. The 
second program, MODEL, calculated time histories of aircraft performance 
for selected trajectories (climb/accel/decel) throughout the flight 
envelope. 
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3. 2. 4.1 ITERATE Program 


This program was developed to calculate steady-state, constant 

weight-pressure ratio (W/<5) cruise performance from aircraft engine/ 

aerodynamic characteristics generated from flight test quasi steady- 

state maneuvers. Since steady-state performance parameters cannot 

be explicitly solved for, it was necessary to develop an interative 

routine which would converge upon the steady-state solution. This 

routine iterated on lift coefficient to obtain steady-state values of 

C_, C , F F , F , a, SR, SRP, R.F., and N..//6 at a constant W/ 5 
ULgnr 1^2 

for the entire Mach envelope. The overall computational flow of 
ITERATE is shown schematically in Figure 3.16. 

The routine normally started with desired steady-state values 
of W/6, h, N^, and Mach number. The iteration began by first approxi- 
mating lift coefficient with Equation (24). 


C L = 


W, 


p s.l. ym2s 


(24) 


However, this value of lift coefficient did not take into^ account the 
thrust moment effects and was not a steady-state value. Therefore, 
the objective of the iteration routine was to solve for a steady-state 
value of lift coefficient. 

The iteration routine next calculated aircraft angle of attack 
based on the last approximation of lift coefficient. This was accom- 
plished with a table look-up of the baseline vs a characteristics. 

s 

This look-up was a function of power setting for Mach numbers less 
than .65 and a function of Mach for Mach numbers greater than .65 

for the Lear 35, as discussed in Section 4.2.1. 

/ 
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Figure 3.16: ITERATE Program Flow Chart 
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With angle of attack defined, the drag coefficient could then be 
determined. For Mach numbers greater than or equal to .60, a table look- 
up routine was used to interpolate the drag coefficient characteristics 
for angle of attack and Mach number, as discussed in Section 4.2.1. For 
Mach numbers less than .60, a table look-up on angle of attack and power 
was used. Drag over delta was then calculated with Equation (25). 


D V P S.L. SM ' 


(25) 


A table look-up for test engine airflow was performed, using 

corrected RPM and Mach. Corrected ram drag was then calculated with 

W f&~~ 
a t 0 

F W V/g 
r a 6 

6 t = 5 t 
c 2 2 

where M is Mach number, a is the local speed of sound, and W J'q. / 6 

a t 2 t 2 

is the corrected airflow from the table look-up. The above ram drag 
calculation was for one engine and was therefore multiplied by two 
to represent the combined total of both engines. At the same time 
the total pressure correction was multiplied out, yielding F^/6, 
which was used to calculate gross thrust in the next step. 

With the values of drag over delta and ram drag over delta defined, 
the gross thrust over delta could then be calculated: 

F D/6 + F /S 

_& = I — . 

6 cos (a + \) ’ 
and the corrected thrust was 



* /e t g 
2 



F / 6 

S 

(1 + . 2 [M 2 ] ) 3 ' 5 x PRF 
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where PRF was Che engine inlet pressure recovery factor. Next, a new 

power level (N^) was defined. This was accomplished using the baseline 

gross thrust model (N^ / /6 vs F /S and M) . 

i t 2 g t 2 

Finally, the lift coefficient was updated, 

W/S - F /6 sin(a + A) 


"A/C 


1/2yP s l sm2 


and corrected for thrust moment effect and c.g. position: 

C. = C. + AC. 

^A/C A/C thrust 

moment 

C L =% +AC L 

s t a/c c *s- 

With two lift coefficients defined, a test for convergence was 
then performed. For the first iteration, a comparison of the approxi- 
mated C T (Equation 24) to the value of C T computed with the above 
L L S 

equation was made. If convergence was not achieved, was set equal 

to C T ; and the iteration continued with a new calculation of angle 
L S 

of attack. Agreement between the last iteration and the present iter- 
ation was required to be within ±.00001 for convergence. When the lift 

coefficient did converge, the new steady-state values of , F , 

s s g 

F n> F^, range factor, specific range, specific range parameter and 


N. //0 were stored. Mach number was then incremented and the iteration 
1 t 2 

performed again. The process continued until the entire Mach envelope 
had been defined. Additional information for the ITERATE program is 
presented in Appendix C. A typical number of iterations for convergence 
was three. 
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3. 2. 4. 2 MODEL Program 


The MODEL program was an adaptation of the Air Force Flight Test 
Center Digital Performance Simulation (DPS) computer program f 1 1] . 

MODEL evaluated defined trajectories to simulate aircraft 
performance characteristics. The output included a time history of 
weight, speed, altitude, and distance. Many other parameters such 
as load factor, angle of attack, bank angle, heading, gross thrust, 
specific excess thrust, and certain aerodynamic variables were also 
determined. The program was capable of computing a number of per- 
formance trajectories, including four types of wing level climbs 
and an acceleration/deceleration maneuver. The aircraft was described 
to the program by tables of baseline aerodynamic and propulsion charac- 
teristics. 

The general approach used in MODEL was to compute the time required 
to accelerate, climb, or cruise over a small fixed interval of velocity, 
altitude, or distance and then progressively sum these increments. 

This was accomplished by first evaluating the total energy of the aircraft 
which is equal to the potential and kinetic energy. 

E = Wh + 4 mV 2 . 
g 2 

Defining the energy height as h g = E/W, assuming no wind (or a constant 
wind), and an inertial reference frame, the energy height becomes 


V z 

h = h + -z- . 

e g 2g 


(26) 


The rate of change of specific energy was defined by differentiating 
Equation (26) : 
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dh 


dh 


g + VdV 


dt d t gd t 
Recalling that the specific excess power is defined as 


Ah 

p = 
s At 


F V 
ex 

W 


( 27 ) 


Solving Equation (27) for At, the change in time is equal to the ratio 
of the change in energy height to the average specific excess power, or 

Ah 


At = 


(P ) 

s avg 


(28) 


where 


F V 

(P ) = (--) 

K s' avg K W "avg 


F V 
ex avg 
avg 

W 

avg 


and 


ex 


avg 


V 

avg 


W 


F + F 
ex^ ex 2 


V V 2 


W 1 + W 2 


avg 2 

The subscripts 1 and 2 refer to the conditions at the beginning and 
end of an interval. By generating Ah g from Equation (26), Equation (28) 


becomes 


- h 


Si 


V 2 - V 2 
2 1 

2g 


At = 


F V 
ex avg 
avg 

W 

avg 
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which simplifies to 


At = 


avg 


ex 


avg 


h - h 

89 8j_ 


V 2 " V l 


avg 


(29) 


An estimate of the time, At , required to accelerate and/or 
climb during the interval was initially set to an arbitrary value. 
All parameters at point 1 were known, and the weight of the aircraft 
at point 2 was then computed as 


W„ 


W 1 - W f 


At 


est 


(30) 


avg 

Since V 0 and h were set by the program, W , F , and V could 
2 g J avg ex avg 

°2 & avg 0 

be computed and Equation (29) used to solve for At. At was then 
compared with At in a test for convergence and another iteration per- 
formed using At = At if the convergence test failed. If convergence 

6 S c 

was achieved, the values of V, F , and At were stored and evaluation 

ex 

of the next increment begun. 

The simplifying assumptions made in MODEL were 

(1) spherical, nonrotating earth (no centrifugal effect from 
the force of gravity) , 

(2) constant gravity (g = 32.174 ft/sec 2 ), and 

(3) no accelerations caused by wind gradients. 


/ 
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3.2.5 Error Analysis 


A sensitivity analysis was accomplished to determine the effect 
that errors in key instrumentation parameters had on selected flight 
test data base and baseline aerodynamic /engine characteristics. 

Table 5 summarizes the instrumentation parameters which were analyzed 
and the associated characteristics. and were analyzed for both 
the right and left engine due to the small difference in engine per- 
formance identified during the thrust run. The analysis was conducted 
in two phases. First, the effect of a one percent error in each in- 
strumentation parameter listed in Table 5 was evaluated. Actual data 
from four representative maneuvers consisting of 17 data runs were used 
to determine the absolute error and relative error for each of the 
Table 5 affected variables that resulted from a one percent error. 

Each instrumentation parameter was varied separately, resulting in a 
total of 816 conditions being analyzed (17 runs x 48 instrumentation 
parameter/affected variable combinations). The four test maneuvers 
chosen are summarized in Table 6 which covered representative weight, 
altitude, Mach and power conditions experienced throughout the test 
program. The nominal and one percent error case were analyzed for 
each condition using the standard data reduction software to determine 
the absolute error and relative error as defined below. 

Absolute Error = Nominal Case - Error Case. 


Relative Error = 


Absolute Error 
Nominal Case 


The maximum absolute and relative errors experienced were then iden- 
tified for each of the 48 instrumentation parameter/affected variable 
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Table 5: Sensitivity 


INSTRUMENTATION 
Parameter Varied 

C L 

s 

Engine RPM N^ R 

X 

n il 

X 

Fuel Flow W,. 

i K 

X 

W fL 

X 

Longitudinal Accel n 

X body 

X 

Normal Acceleration n 

Z body 

X 

Angle of Attack 

X 

Static Pressure 

X 

Dynamic Pressure 

X 




Air Temperature 


X 


Affected Variable 


C D 

s 

VS 

W /o /(S 
a t 2 t 2 

F 

g 

w 

a 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 




\ 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 


X 


X 


X 


X 

























combinations by reviewing data from each run. These maximum errors 
were then tabulated so that the relative impact of a one percent error 
could be compared for each instrumentation variable to assist in iden- 
tification of instrumentation requirements for future programs. 

The second phase of the error analysis evaluated the maximum 
relative and absolute error associated with the actual instrumentation 
accuracies defined for the data acquisition system used during the 
program. The most critical instrumentation parameters were identified 
from the phase one anlaysis, and the accuracy specified for each of 
these transducers was used in a separate analysis to determine the 
anticipated errors associated with this program. The instrumentation 
transducers used during this program were generally of very high 
quality with state-of-the art or close to state-of-the art accuracies. 
As a result, the effect of high quality instrumentation transducers 
may be readily assessed by comparing the results of the phase one 
and phase two error analysis. Results are presented in Section 4.5. 
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Table 6: Sensitivity Analysis Maneuvers 


Fit 

Maneuver 

No. 

Runs 

W/5 

(lbs) 

Condition 

Power 

(N 1 > 

184 

1 

3 

22000 

ACCEL 

95% 

184 

2 

5-10 

22000 

DECEL 

50% 

187 

1 

23-26 

60000 

ACCEL 

. 95% 

187 

6 

50, 51, 60-63 

60000 

DECEL 

80% 
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3.2.6 Accelerometer Corrections 


Since flight path accelerations were a primary factor in the 

calculation of and , two corrections to body axis accelerometer 
s s 

data had to be considered. The first, angular misalignment between 
the measurement axis of each accelerometer and its respective aircraft 
body axis, was negligible in this program due to the accelerometer 
alignment procedures discussed in Section 3.2.5. The second, a cor- 
rection for angular velocity and acceleration inputs due to the loca- 
tion of the accelerometer not being at the aircraft c.g., is developed 
in Reference 5. The magnitude of this correction was minimized by 
locating each accelerometer as close to the test c.g. range as possible. 
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3.2.7 Structural Flexibility 


The Lear 35 was considered a rigid aircraft for purposes of this 
program. Provision was not made in the analysis techniques to account 
for structural flexibility, since discussions conducted with the 
Learjet Corporation and consultants to the company indicated that the 
Model 35 was highly rigid and that flexibility effects related to the 
performance modeling work would be insignf icant . The excellent re- 
peatability of data experienced during the program confirmed that this 
assumption was valid. 

Application of performance modeling techniques to an aircraft 
with significant structural flexibility would require additional infor- 
mation about the aircraft. Specifically, definition of the significant 
flexibility modes of the aircraft would be needed along with the aero- 
dynamic influence coefficient matrix and the structural influence coef- 
ficient matrix as defined in Reference 12. Since the aircraft mass 
distribution directly affects the lift and drag coefficient character- 
istics of a flexible aircraft, a standard mass distribution would have 
to be defined and a correction applied to the lift and drag coefficient 
data based on the actual mass distribution of the aircraft. The cor- 
rection would be developed in a manner similar to the other coefficient 
corrections discussed in Section 3.2.1. For example: 


AC L = C L ~ C L 

flexibility std test 

mass mass 


and 
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C L = C L + ^C L 

flexibility s flexibility 

corrected 

The mass distribution of the aircraft throughout a test flight would 
have to be known accurately and approximate prediction equations de- 
veloped for lift and drag coefficient based on the significant flexi- 
bility modes of the aircraft. Reference 12 presents the approach for 
the case of angular flexibility about the y body axis resulting from 
forces in the z body axis direction. It may be possible to minimize 
the corrections by restricting the mass distribution variation during 
the data acquisition phases of flight test. 
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3.3 CALIBRATION TESTS 


3.3.1 Instrumentation Transducers 

A description of the instrumentation system and instrumentation 
transducers is presented in Section 3.5. All transducers were cali- 
brated prior to the flight test program and also calibrated after 
completion of the program to check for calibration shifts. All cali- 
brations were accomplished by Lear jet and KSR personnel at the Lear jet 
Wichita facility with the exception of the fuel flow transducers, 
which were calibrated by Flow Technology, Inc., Phoenix, Arizona. 

The accelerometers were calibrated using an Ideal-Aerosmith, Inc., 
tilt table (part no. 221300-3); and the rate gyros were calibrated 
on a Genisco, Inc., rate table (part no. 223E314P1). Specifically 
designed angular boards were used for the angle of attack, sideslip 
and surface position calibrations. The pressure transducers were 
calibrated using a Ruska Instrument Corporation Model 6000 pressure 
calibration instrument. An HP 3325A synthesizer/function generator 
was used for the engine RPM calibrations. 
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3.3.2 Thrust Run 


A ground thrust run was made to determine the actual thrust, fuel 
flow and airflow (using Equation 20) characteristics of each engine. 

The thrust run configuration consisted of restraining the aircraft in 
the forward horizontal direction by attaching a cable between the main 
landing gear strut and a ground tie-down with a load cell located di- 
rectly in the load bearing path as illustrated in Figures 3.17 and 3.18. 
Each engine was evaluated separately with the tie-down hardware attached 
to the respective gear strut. This arrangement was possible, since the 
landing gear struts were located directly beneath each engine as shown 
in Figure 3.2. Test points for each engine consisted of five stabilized 
conditions based on which were chosen throughout the RPM range. The 
engine was stabilized for approximately three minutes at each test con- 
dition with fuel flow, N^, and thrust (using the load cell) being re- 
corded along with ambient pressure and temperature. The data were then 
reduced to corrected form so that the n curve could be defined as dis- 
cussed in Sections 3. 2. 1.2 and 4.1.2. 

It was desired to obtain at least nine evenly spaced test points 
for each engine throughout the RPM range to improve definition of the 
TSFC curve. Program constraints would not allow this for the Lear 35 
program; however, a very extensive thrust run was accomplished on the 

m 

Lear 55 aircraft which included a total of 20 stabilized points for 
each engine as discussed in Appendix E. This is the recommended ap- 
proach for future programs. The load cell/tie-down arrangement was 
calibrated during the Lear 55 thrust run in which the aircraft was 
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LOAD CELL 


PULLEY 


TIE-DOWN 


Figure 3.17: Thrust Run Load Cell/Tie-Down Configuration 



Figure 3.18: Thrust Run Hardware 





restrained using the same hardware as shown in Figure 3.18 while on 
the Edwards AFB thrust table, an internationally recognized facility 
for determining engine thrust characteristics. A correction curve 
was developed for the load cell/tie-down arrangement based on the 
Edwards thrust table as discussed in Appendix E. 
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3.3.3 Pitot Static System, Temperature Probe and Angle of Attack 


The aircraft pitot-static system, temperature probe and angle of 
attack transducer were calibrated during the initial two test flights. 
Calibration maneuvers consisted of a series of stabilized points con- 
ducted throughout the airspeed range at three test altitudes: 11,000, 

35,000 and 43,000 feet. A test summary of these points is presented in 
Table 7. The test points were selected to cover the C T , W/6 and Mach 
ranges of the aircraft as well as representative altitude conditions. 

The pitot-static system calibrations were accomplished to define 
static port position error characteristics using a trailing cone 
which extended approximately one fuselage length behind the aircraft 
on a flexible tube. A rigid tube with several static ports was in- 
serted ahead of the cone as shown in Figure 3.19 to record the actual 
static pressure. The cone was used to stabilize the tube assembly 
behind the aircraft. The actual static pressure was recorded at 
each test point as well as the static pressure measured by the "test 
system" which consisted of four static ports located approximately 
8 1/2 inches aft of the pitot tube tip on the nose boom. To record 
these measurements, the aircraft was stabilized at a test condition 
and a switching valve was used to measure "test system" and cone 
pressure with the same pressure transducer. Since the difference 

between the test system and actual static pressure (Ap = p - p ) 

P S el 

was needed, utilization of the same pressure transducer eliminated 
transducer offset errors that would be present if two separate 
transducers had been used. Data were taken under well-stabilized 
conditions to prevent pneumatic lag from influencing the measure- 
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Table 7 : 

Pressure 
Altitude 

11,000 


35,000 


43,000 


Test Points for Pitot Static System 
Temperature Probe and Angle of Attack 
Calibration 


Indicated 
Velocity (KIAS) 

150 

200 

250 

300 

350 


Indicated 

Mach 


.55 


.59 

.63 

.67 

.71 

.75 

.79 

.60 

.70 

.78 


78 



meats. These data were analyzed using standard techniques contained 
in Reference 13. The position error was defined using the parameter 


Ap /q . as a function of lift coefficient (C T ) 
p cic L . 

1C 


Ap = p - p 
r p r s a 


^cic P t p s 


W 


X. l/2yp M 2 - 

1C r s 1C 


Results are presented in Section 4.1.3. 


where 
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The air temperature probe was calibrated by defining the tempera- 
ture probe recovery factor (K) from data obtained at the same test 
points as those presented in Table 7. By conducting each test series 
at the same altitude and assuming the tests were flown in the same 
air mass (same T ), the probe recovery factor was determined using 

cl 

the fact that 


T. = T (1 + . 2KM . 2 
ic a ic 

which may be rearranged in the form 


) 


(18) 



ic a ic 

When 1/T . is plotted versus .2M. 2 /T. for a fixed altitude, the 
ic v ic ic ’ 

slope of the resulting line will be equal to -K. Results are presented 
in Section 4.1.3. 

The angle of attack was measured by sensing the position of a vane 
which extended out from the side of the nose boom aft of the pitot 
static probe (Figure 3.20). A correction for the flow disturbance due 
to the bow wave of the aircraft fuselage was defined from data obtained 
at the same stabilized points presented in Table 7. To determine the 
actual angle of attack, data from the longitudinal and vertical body- 
mounted accelerometers were used along with the equation 

n 


8 = a. 


true 


+ Y = tan 


-1 


body 


n 


Z body 

Thirty data points (approximately 3 seconds of data) were used from 
each stabilized point to compute averaged values of each acceleration: 
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Angle of Attack Vane 


Sideslip Vane 


Figure 3.20: Noseboom Installation of Angle of Attack and Sideslip Vanes 






30 
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n 


n = 1 body 


x . 30 

body 


30 


n 


- n = 1 body 

n z 30 

body 


The flight path angle y was estimated by 

• 

i h 

y = sin’ -f 


where - 

dh T a 

h = -r-— . 
g dt ^ 

a 

s 

dh /dt was estimated using a linear curve fit for h versus time with 

T and T being averaged quantities over 30 points similar to 
a a 

t s 

n and n . The values obtained for dh /dt were very small, 

X body Z body 

as would be expected for a stabilized point. The actual angle of 
attack was then determined by 


true 


= tan 


-1 body . -1 
— sin 


h 

_S. 

V t 


Z body 

For each test condition, the parameter 

Aa = a - a, 

true boom 

was plotted versus a, to define the angle of attack correction. 

boom 

Results are presented in Section 4.1.3. 
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3.3.4 Weight and Balance 


The aircraft was weighed before each test flight to determine 
the gross weight and horizontal c.g. position. The procedure con- 
sisted of raising the aircraft on jacks and recording the load at 
each jack point through load. cells which were an integral part of 
each jack. Post-flight weighings were made after the initial three 
performance flights to establish confidence in the fuel burn esti- 
mations for both weight and c.g. variation during flight. 



3.3.5 Accelerometer Alignment 


Since accurate measurement of flight path acceleration was crit- 
ical in the calculation of lift and drag from quasi steady-state 
maneuvers, considerable attention was given to precise alignment of 
the body axis accelerometers during the initial installation. This 
procedure began with leveling of the aircraft on jacks such that the 
x and y body axes were aligned in the horizontal plane. The accel- 
erometers were then installed as nearly orthogonal to each other as 
possible in the aircraft with alignment adjustments made until the 
longitudinal and lateral accelerometers read zero and the normal 
accelerometer read one g. The aircraft was then rolled to approx- 
imately 6.5 degrees left wing down while maintaining x body axis 
alignment in the horizontal plane. Alignment of the longitudinal 
accelerometer was then adjusted until a zero reading was obtained. 
Following this adjustment, the aircraft was re-leveled in the x-y 
plane and all accelerometers checked for the appropriate reading. 

No alignment adjustments were necessary at this point, since the 
longitudinal and lateral accelerometers read zero and the normal 
accelerometer read one g. If these readings had not resulted, 
additional alignment adjustments would have been necessary and the 
procedure repeated until acceptable alignment was achieved. 
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3.4 FLIGHT TESTS AND PROCEDURES 
3.4.1 General 

A total of 17.42 hours were flown during the test program, which 
included instrumentation evaluation, pitot-static system calibration 
and takeof f/ landing/ground effect evaluation as well as performance 
modeling. Table 8 presents a breakdown of the flight test program. 

Table 8 : Flight Test Summary 


t. No. 

Date 



Fit. Time 
(hrs:mins) 

Mission 

175 

Dec. 

16, 

'82 

1:45 

Instrumentation checkout, 
pitot static cal. 

176 

Dec . 

17, 

CN 

oo 

2:15 

Pitot static cal., test 
maneuver familiarization 

184 

Jan. 

5, 

m 

00 

1:50 

22,000 W/5 

185 

Jan. 

6, 

00 

00 

2:10 

40,000, 47,000 W/6 

187 

Jan. 

7, 

'83 

3:20 

60,000, 73,000 W/6 

188 

Jan. 

10, 

00 

oo 

3:30 

67,000, 80,000 W/6; 60,000 
repeat (partially completed) 

189 

Jan. 

11, 

'83 

2:35 

53,000 W/6, 60,000 repeat 
(complete) 


All flights were flown from the Gates Learjet Corporation Wichita 
Facility with a flight crew consisting of a Learjet pilot and copilot 
and KSR flight test engineer. The flight crew was briefed concerning 
procedures and test maneuvers by CRINC personnel. The test aircraft 
was owned and operated by Learjet. 
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3.4.2 Description of Tests 


Four types of maneuvers were flown during the program: 

1. Approximately constant altitude accelerations and deceler- 
ations (quasi steady-state maneuvers) at constant power 
based on N^. 

2. Stabilized points at constant W/6. 

3. Pull-up, push-over, pull-up (push-pull) profiles initiated 
from a stabilized point. 

4. Flight trajectory profiles throughout the Mach and altitude 
envelope of the aircraft. 

The primary maneuver used for performance modeling was the quasi steady- 
state acceleration/deceleration which provided sufficient data to 
completely define the baseline aerodynamic and engine characteristics 
as discussed in Section 3.2.1. Stabilized points and flight trajectory 
profiles were used for evaluation of the stabilized point and flight 
trajectory predictions provided by the performance modeling programs 
ITERATE and MODEL. The push-pull profiles were obtained to spot-check 
the accel/decel data and extend the angle of attack range. 

The accel/decel maneuvers were conducted at nearly constant alti- 
tude using the altitude hold mode of the autopilot. Normally less than 
a 60 foot excursion from the start altitude was experienced during a 
maneuver. Eight cardinal power settings were evaluated consisting of 
95, 90, 85, 80, 75, 70, 60 and 50 percent N^. The was chosen as 
the variable to represent power because of the relatively high bypass 
ratio of these engines and the resulting high correlation to engine 
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airflow. This technique allowed determination of the power-dependent 
lift and drag characteristics. An accel/decel was conducted at a 
cardinal power setting by holding to within ±1/2 percent during 
a maneuver. A range of weight-pressure ratio (W/6) within the air- 
craft envelope was designated to provide a C T variation for a given 
Mach number so that Mach effects could be defined. For example, eight 
values of W/6 were evaluated as shown in Table 9. These eight values 
of W/6 provided eight evenly spaced points on a constant Mach drag 
polar in the mid-Mach range. Each accel/decel was then conducted at 
an approximately constant power setting and W/6. At each value of 
W/6, an accel/decel sequence was performed which included maneuvers 
at all cardinal power settings above idle. As W/6 increased, the 
number of available power settings decreased due to increasing idle 
RPM with increasing altitude. For example at 40,000 feet only the 
95, 90 and 85 percent power settings could be evaluated. As a result, 
the largest amount of data was obtained for the higher power settings. 
Primary cruise performance characteristics such as N 1 //0 versus Mach, 
and range factor versus Mach are also a function of W/6. These charac- 
teristics were evaluated in a conventional manner from a series of 
stabilized points conveniently located within an overall accel/decel 
maneuvering sequence. Maneuvering sequences at W/6 values of 22,000, 
40,000, 60,000 and 80,000 pounds were chosen to include stable points, 
as shown in Table 9. Approximately four stable points were obtained 
at each value of W/6. To evaluate repeatability of the data, the 
maneuvering sequence at 60,000 W/6 was repeated on different flights. 
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Table 9 : Performance Modeling Maneuvering Sequences 


W /6 

(lbs) 

Nominal 

Altitude 

(ft) 

Stable Points 
Included 

Repeat 

22,000 

10,000 

X 


40,000 

23,000 

X 


47,000 

26,000 



53,000 

29,000 



60,000 

32,000 

X 

X 

67,000 

35,000 



73,000 

38,000 



80,000 

40,000 

X 



A typical maneuvering sequence is illustrated in Figure 3.21 which 
assumes the drag curve and engine idle level are as shown for a par- 
ticular W /6 configuration. The sequence includes stabilized points 
and push-pull maneuvers. A sequence began by slowing the aircraft 
to an acceptable minimum speed (for the Lear 35 this was an airspeed 
slightly above stick shaker speed) at an altitude based on the target 
value of W/5. A 95 percent accel was then performed followed by a 
stabilized point and a push-pull. Approximately two to four minutes 
were spent at each stabilized point to assure that the aircraft had 
stabilized. A push-pull consisted of a very slow roller coaster 
maneuver between approximately .5 g and 2.5 g or buffet with angular 
acceleration kept to a minimum. After the push-pull, the throttles 
were retarded to 90% and a decel performed into another stabilized 
point. The sequence then continued as shown in Figure 3.21. Altitude 
adjustments were made at convenient times in the sequence to maintain 


89 


DRAG or NET THRUST (D,F ) 



MACH (M) 


Sequence 

Power 

SettinR 

Maneuver 

Data 

Recorded 

i 

95 

Accel 

Yes 

2 

95 

Stabilized Point 

Yes 

3 

95 

Push-pull 

Yes 

4 

90 

Decel 

Yes 

5 

90 

Stabilized Point 

Yes 

6 

90 

Push-pull 

Yes 

7 

70 

Decel 

Yes 

8 

90 

Accel 

Yes 

9 

95 

Accel 

No 

10 

85 

Decel 

Yes 

11 

85 

Stabilized Point 

Yes 

12 

85 

Push-pull 

Yes 

13 

70 

Decel 

Yes 

14 

85 

Accel 

Yes 

15 

95 

Accel 

No 

16 

80 

Decel 

Yes 

17 

80 

Stabilized Point 

Yes 

18 

80 

Push-pull 

Yes 

19 

70 

Decel 

Yes 

20 

80 

Accel 

Yes 

21 

95 

Accel 

No 

22 

75 

Decel 

Yes 

23 

75 

Stabilized Point 

Yes 

24 

75 

Push-pull 

Yes 

25 

70 

Decel 

Yes 

26 

75 

Accel 

Yes 


Figure 3.21: Typical Test Sequence 
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W/S within approximately ±1 percent as weight decreased. The majority 
of the stabilized points were obtained following a decel which allowed 
for faster stabilization. Although not specifically shown in the Figure 
3.21 diagram, a high power setting as indicated in sequence 15 was used 
to accelerate past the last stabilized point so that the decel as 
shown in sequence 16 could be obtained. The general guideline used 
was to accelerate far enough past the last stabilized point so that 
the engine would achieve stabilization on the subsequent decel before 
reaching the Mach number of the last stabilized point. Data were taken 
periodically throughout an accel/decel rather than continually to keep 
the volume of data to a manageable level. Ideally, approximately a 
twenty-second burst of data was recorded as the aircraft passed through 
each cardinal Mach. For maneuver sequences which did not include 
stabilized points or push-pull maneuvers, an accel/decel was continued 
until the absolute value of acceleration was generally below a quarter 
knot per second. The actual test sequence performed at each W/ 6 con- 
dition depended directly on the location of the drag curve with respect 
to the net thrust levels. For example, if two cardinal power settings 
were located between engine idle and the bottom of the drag curve, 
then at least one decel would be performed at each of these power 
settings. The maneuver sequence was. designed to acquire the needed 
data in a time-efficient manner and also be easily accomplished by 
the flight crew. It clearly met these objectives. For planning pur- 
poses, 90 minutes were estimated for a maneuver sequence with stabilized 
points and push-pulls, and 45 minutes were estimated for a sequence 
without these maneuvers. 
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Flight trajectory profiles were flown during the program 


which consisted of climb, accel and decel maneuvers throughout 
the airspeed, altitude and power range of the aircraft. A detailed 
description of these tests is presented in Section 4.4.2. 
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3 . 5 INSTRUMENTATION 


A multichannel digital data acquisition system (DAS) was installed 
in the test aircraft to record all applicable aircraft parameters. The 
DAS utilized a Honeywell 5600C magnetic tape recroder and a 10-bit 
processor/multiplexer. All data were sampled at a minimum rate of 
ten samples per second. Preflight and post-flight calibrations were 
performed before and after each test mission. Table 10 summarizes the 
range and approximate accuracy for each instrumented parameter used 
for the performance modeling effort. The instrumentation system was 
designed and transducer accuracies specified in accordance with the 
recommendations made in Reference 14. The instrumentation system 
incorporated a start/stop switch for the copilot as well as an in- 
flight readout of selected parameters such as aircraft weight to aid 
in achieving test conditions and assuring critical transducers were 
functional. The majority of the system including the signal condition- 
ing and magnetic tape recorder were installed in the main cabin area 
as shown in Figure 3.22. Individual transducers were installed in a 
location appropriate to their function. For example, the accelerom- 
eters were installed as close to the aircraft c.g. as possible to 
minimize off-c.g. corrections. 
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Table 10: Instrumentation Parameter List 



Parameter 

Units 

Range 

Resolution 

1 . 

Altitude (boom static pressure) 

psia 

0-15 psia 

.00075 psia (VI. 5 ft) 

2. 

Airspeed (boom differential q . 

c ic 

pressure) 

psid 

0-6 psid 

±0.25 kt (±.002 psid) 

3. 

Air temperature 

°C 

-70 to 350°C 

±.25°C 

4. 

Longitudinal acceleration 

8 

+1.0 to -1.0 

±0.001 g 

5. 

Lateral acceleration 

g 

+1.0 to -1.0 g 

±0.001 g 

6. 

Normal acceleration 

g 

+5.0 to -5.0 g 

+0.005 g 

7. 

Pitch rate 

°f sec 

±200°/sec 

±0.3°/sec 

8. 

Roll rate 

°/sec 

±200° / sec 

±0. 3°/sec 

9. 

Yaw rate 

°/sec 

±200°/sec 

±0. 3°/sec 

10. 

Pitch angle 

deg 

±60° 

±0.75° 

11. 

Roll angle 

deg 

±90° 

±0.75° 

12. 

Boom vane a 

deg 

±30° 

0.1° 

13. 

Fuel flow left 

gal/hr 

0 to 2050 lb/hr 

10 lb/hr 

14. 

Fuel flow right 

gal/hr 

0 to 2050 lb/hr 

10 lb/hr 

15. 

Engine RPM-Nl-left 

% 

0 to 110% 

0.2 % 

16. 

Engine RPM-Nl-right 

% 

0 to 110% 

0.2% 

17. 

Engine RPM-N2-left 

% 

0 to 110% 

0.2% 

18. 

Engine RPM-N2-right 

% 

0 to 110% 

0.2% 

19. 

Fuel used totalizer 

lb 

0 to 6500 lb 

5 lb 

20. 

Fuel temperature left 

°F 

-50°, +75 °C 

0.1°C 



Table 10: Instrumentation Parameter List (continued) 



Parameter 

Units 

Range 

Resolution 

21. 

Fuel temperature right 

°C 

-50°, +75°C 

0.1°C 

22. 

Turbine temperature left 

°C 

150° to 1000°C 

±1°C 

23. 

Turbine temperature right 

°C 

150° to 1000°C 

±1°C 

24. 

Flap position 

deg 

Up/T.O./Ldg. 

— 

25. 

Spoiler position 

deg 

— 

— 

26. 

Pilot/Engineer status byte 

— 

— 

— 

27. 

Clock (binary-real time) 

sec 

— 

— 

28. 

Boom vane 8 

deg 

+30° 

0.1° 






Figure 3.22: Instrumentation System Installation 





4. RESULTS 


Results of the overall program are presented in this chapter. 

The baseline aerodynamic and engine data were proprietary to the Link 
Division of the Singer Corporation; and, as a result, the actual num- 
bers are not presented. However, the scaling of each baseline charac- 
teristic graph is included to provide the necessary interpretation of 
the data. 

4.1 CALIBRATION TESTS 

4.1.1 Instrumentation Transducers 

Results of the calibration tests for each transducer were reviewed 
and incorporated into the data reduction software. These calibration 
curves were used to convert raw data to engineering units format as 
the first step in the overall data reduction process. The pre- and 
post-program calibration for all transducers had excellent agreement 
(within the specified transducer accuracy). 
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4.1.2 Thrust Run 


Table 11 presents a summary of the thrust run conditions for each 

engine. The thrust calibration friction correction as discussed in 

Appendix E was used to arrive at the actual thrust values, and computer 

program F. TABLE described in Appendix C was used to convert the raw 

data to corrected form. Determination of n, the ratio of thrust 

run TSFC to engine prediction deck TSFC, began by plotting thrust 

run corrected TSFC versus corrected RPM, as. shown in Figure 4.1. 

97 

Corrected TSFC was obtained from the ratio of W-//06* and F /6, 

f g 

since N = .97 for the zero Mach case as discussed in Section 3. 2. 1.2. 
The engine prediction deck corrected TSFC was also included for com- 
parison, and then a curve was faired through the thrust run data using 
the engine deck curve as a guide for extrapolation in the high cor- 
rected RPM range that could not be reached during ground operation. 

In the less critical low corrected RPM range, the extrapolation was 
based on the trends observed with the Lear 55 thrust run where a 
crossover was found. The low RPM region was considered less critical, 
since all flight test data were obtained at corrected RPM values 
generally above 11000; and the majority of the flight test conditions 
called for corrected RPM's above 14,000. It is desirable, however, 
to obtain thrust run points in this range as accomplished on the Lear 
55 program rather than to rely on extrapolation. The ratio (n) of 
the thrust run corrected TSFC curve to the engine deck corrected TSFC 
curve was then obtained as a function of corrected RPM as presented in 


98 



Table 11: Thrust Run Summary 


Right Engine Left Engine 


\ (RPM) 

N 1 

— (RPM) 
/0 

T (°F) 

P a (psia) 

N x (RPM) 

N 1 

(RPM) 

/e 

T (°F) 

P a (psia) 

14477 

14846 

33.6 

14.26 

14541 

14966 

30.0 

14.26 

16672 

17101 

33.4 

14.26 

16774 

17258 

30.4 

14.26 

17832 

18286 

33.7 

14.26 

17737 

18231 

31.4 

14.26 

18738 

19212 

33.8 

14.26 

18692 

19220 

32.0 

14.26 

19068 

19541 

34.3 

14.26 

1911.1 

19631 

32.0 

14.26 




Data 




T5FC RATIO, ETA 



Figure 4.2: TSFC Correction Parameter ,n 


Figure 4.2 for each engine. Figures 4.3, 4.4 and 4.5 present the 
thrust run corrected thrust, fuel flow and airflow data points 
with the engine prediction deck curve superimposed for comparison. 
The airflow data in Figure 4.5 were calculated using Equation (20) 
and the n characteristics. The thrust run data clearly showed that 
each of the test engines had higher TSFC values than the deck pre- 
dictions in the critical RPM range and followed the general trend 
of the deck in this range. 
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CORRECTED THRUST, F 5 /t u ^ LBS 



Figure 4.3: Thrust Run Corrected Thrust Data 
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Figure 4.4: Thrust Run Nonstandard Corrected Fuel Flow Data 
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CORRECTED AIRFLOW,— Y^ 14 - — i-SS/kc 



Figure 4.5: Thrust Run Corrected Airflow Data 
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4.1.3 Pitot Static System, Temperature Probe and Angle of Attack 


Results of the pitot static system calibration are presented in 
Figure 4.6. The position error parameter Ap /q c ^ c for each test point 
is plotted versus along with a "best fit" fairing of the data.- 

The maximum error due to data scatter was equivalent to ±.5 knots over 
the entire range. The curve was then input to the overall data reduc- 
tion software to correct for position error. 

The temperature probe recovery factor was defined from the slope 
of 1/T, versus .2 M. 2 /T. as outlined in Section 3.3.3. A linear 

1C 1C 1C 

curve fit was defined for two test altitudes as presented in Figure 4.7 
A temperature probe recovery factor of .963 was determined for the 
temperature probe installation and input to the data reduction software 
Results of the angle of attack calibration are presented in Figure 
4.8. A "best fit" fairing of the data is included. As seen from the 
figure, a gradually increasing upwash correction was needed with angle 
of attack up to approximately 4.5° a ^ oom and then remained approxi- 
mately constant at the maximum value of -.75°. All data fell within 
a scatter band of ±.5°. This correction was also incorporated in the 
data reduction software. 
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Figure 4.7: Temperature Probe Recovery 

Factor Calibration 


ar 
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Figure A. 8: Angle of Attack Upwash Calibration 



4.1.4 Weight and Balance 


The c.g. travel as a function of aircraft weight is presented 
in Figure 4.9 for each of the test flights. The flights were designed 
to generally keep the c.g. location to within ±1% of the standard 25% 
MAC location during the data acquisition phases as seen from the c.g. 
travel diagram. The Lear 35 was an excellent aircraft for tightly 
controlling c.g., since the majority of fuel was located in two wing 
tanks with a centroid very close to the standard position. 
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Center of Gravity in % MAC 


Figure 4.9: Aircraft C. 0. Travel 




A. 2 BASELINE' CHARACTERISTICS 


A. 2.1 Aerodynamic 

A. 2. 1.1 C T versus a 
s 

The C^ versus angle of attack characteristics fell into two 
s 

distinct categories. Above .65 Mach, power effects were negligible; 
but distinct Mach effects were identified. A summary of the standard- 
ized lift coefficient characteristics in this high Mach region is 
presented in Figure A. 10, where an increase in Mach number resulted 

in an increase in C^ as well as the slope C L . The extrapolated 

s a 

portions of each curve are identified by the uniform dashed lines 
as indicated. The actual data plots used to determine these character- 
istics are presented in Appendix F, where a scatter band of approxi- 
mately ±.02 was found for C L . Several overlays of the data were 

s 

evaluated before the final curves were defined. Below .65 Mach, Mach 

effects were negligible, but power effects were found as presented in 

Figure A. 11. At power settings above 60%, a small but significant 

increase in C T was observed. At 70% power, approximately a .01 
s 

increase in resulted throughout the angle of attack range when 
s 

compared to the data below the 60% power curve. As power was in- 
creased to 75% and above and additional increase of approximately .01 

over the 70% curve was found. The power effects on are thought to 

s 

be directly related to the close proximity of the engine inlets above 
the inboard upper wing surface. Either of two effects could be present 
First, the flow field around the wing/nacelle is fairly normal at high 
engine speed; however, at low engine speed, inlet spillage reduces the 
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lift over the inboard section of the wing by retarding the flow. 
Second, above 60% power, the increased airflow through the engine 
may alter the flow field in the engine/nacelle wing root area such 
that the overall circulation around the inboard wing section is in- 
creased, resulting in a corresponding increase in lift. This increase 
in lift did not continue with increasing power settings above 75% but 
rather remained constant at approximately the 75% value. The increase 
in airflow through the engine with increasing power may produce an 
increase in lift on the forward portion of the inner wing but could 
also result in flow starvation and separation near the trailing edge, 
producing an offsetting effect. Obviously, a flow field survey in the 
engine nacelle/wing root area is needed to help explain these power 
effects. Flow tufting in this area would be an excellent first step 
in understanding the power effects observed and could easily be accom- 
plished concurrently with the quasi steady-state maneuvers used for 
performance modeling. 
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CK (a), DEG 

Characteristics, Mi .65 



4. 2. 1.2 versus a 

s 

l 

As with lift coefficient, the C Q versus angle-of-attack character- 

s 

istics fell into two distinct and consistent categories. For .6 Mach 
and above, power effects were negligible but Mach effects were iden- 
tified. A summary of the standardized drag coefficient characteristics 
in the high Mach region is presented in Figure 4.12 where an increase 

in Mach number generally resulted in an increase in for a given 

s 

angle of attack. The data plots used to determine these characteris- 
tics are presented in Appendix F. As shown in Figure 4.12, the largest 

increase in with Mach number was projected above four degrees angle 

s . - 

of attack. For .55 Mach and below, Mach effects were not significant 

but power effects were found throughout the Mach range. As presented 

in Figures 4.13 and 4.14, C Q generally decreased as power decreased, 

s 

with approximately a 45 drag count band between 90% and 50% power in 
the mid angle-of-attack region. The 95% power curve intersected and 
crossed over the 90% curve at two locations and dropped below the 90% 
curve in the raid angle-of-attack region as shown. As with the lift 
coefficient curves, the complex flow interaction in the nacelle/wing 
root area must be analyzed to understand these characteristics. 

Normally it would be expected that lower drag would occur at higher 
power settings due to reduced inlet spillage. This trend is seen in 
the mid angle-of-attack region for 90% and 95% power (Figure 4.13). 
However, this is obviously not the only factor affecting the drag. 
Another possible interaction may be an increased pressure on the aft 
facing wing and fuselage surfaces (a drag reduction) resulting from 
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increased inlet spillage at the lower power settings. The close prox- 
imity of the engine nacelle to these surfaces make this occurrence 
quite feasible. In Figure 4.13, the crossover experienced by the 95% 
curve in the higher angle-of-attack region (lower speed) indicates that 
the increased pressure phenomenon may become predominant as the aft 
facing wing and fuselage surfaces increase with angle of attack and 
as propagation of the inlet spillage air also increases with lower 
speed. Another contributing factor may be increasing flow starvation 
and separation near the trailing edge of the wing with increasing 
power, as discussed in the lift section. This would account for the 
increased drag observed with increased power. The absence of power 
effects on drag at .6 Mach and above is probably due to the low propa- 
gation of inlet spillage air at higher speeds. Again, a flow field 
survey in the wing root/nacelle area would help clarify the causes of 
the identified drag characteristics. 
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4.2.2 Engine 


4. 2. 2.1 F /<$ versus N, / /@ 

g t 2 1 C 2 

Corrected gross thrust characteristics as a function of corrected 
RPM are presented in Figure 4.15 for the .55 Mach case. The engine 
prediction deck curve without the n or in-flight fuel flow correction 
applied is also shown for reference. The general trends of the pre- 
diction deck were found in the data with the absolute value of corrected 
thrust approximately 500 lbs below deck predictions. The lower in- 
flight thrust values were consistent with the thrust run results. A 
significant amount of scatter was found in the data as shown on the 
corrected thrust plots. This degree of scatter was not considered 
typical for the in-flight thrust prediction technique developed in 
the program based on the results of a similar flight test effort with 
the Lear 55 aircraft. Results of this effort are presented in Appendix 
G and show that a considerably tighter grouping of data can normally 
be expected with the method. The reason for the increased scatter 
band with the Lear 35 data has not been totally explained. Possible 
explanations include the lack of a thorough thrust run as accomplished 
on the Lear 55 (Appendix E) and small instrumentation errors during 
selected flights. In defining the engine curves, a significant attempt 
was made to keep the corrected thrust and corrected airflow curves 
consistent relative to the deviation from the prediction deck value. 

The remaining Lear 35 corrected gross thrust characteristics for .3 
through .75 Mach are presented in Appendix H. 
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CORRECTED GROSS THRUST 




4. 2. 2. 2 W.//S o ^ versus N.//& 

f t 2 c 2 1 t 2 

Nonstandard corrected fuel flow characteristics as a function of 
corrected RPM are presented in Figure 4.16 for the .55 Mach case. As 
with corrected thrust, the engine prediction deck curve is also shown for 
reference. The fuel flow data fell very close to the deck predictions 
with the maximum scatter observed approximately ±100 lbs/hr about the 
final curves. Results of the Lear 55 (Appendix G) showed that this 
scatter was higher than should normally be expected. The remaining 
Lear 35 nonstandard corrected fuel flow characteristics for .3 through 
.75 Mach are presented in Appendix H. 
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NONSTANDARD CORRECTED FUEL FLOW, - 7 =r ~ r m LBS/HR 


o MACH = .55 flight test data 



Figure 4.16: Nonstandard Corrected Fuel Flow Characteristics, M= .55 


4. 2. 2. 3 W /i /& versus N. / /6 

a t 2 c 2 1 t 2 

Corrected airflow characteristics as a function of corrected RPM 
are presented in Figure 4.17 for the .55 Mach case. Consistent with 
thrust, the airflow data generally fell below the deck predictions 
with a maximum scatter band of approximately +20, -5 lbs/sec relative 
to the faired curves. The faired curves were placed through the lower 
grouping of data for consistency with the thrust run and thrust data. 
Again the Lear 55 data in Appendix G indicated that considerably lower 
scatter would normally be expected. The remaining Lear 35 corrected 
airflow characteristics for .3 through .75 Mach are presented in 
Appendix H. 
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Wav^0t 2 

CORRECTED AIRFLOW, — , LBS/SEC 


o MACH = .55 flight test data 



Figure A. 17: Corrected Airflow Characteristics, M= .55 



4.3 CONVENTIONAL DATA REDUCTION 


4.3.1 Stabilized Points 

A total of twenty-one stabilized points were flown at four target 
values of W/6 (22,000, 40,000, 60,000 and 80,000 lbs) as discussed in 
Section 3.4.2. Table 12 presents a summary of the stabilized point 
data. Range factor and specific range were standardized using the 

and S stc j values presented in Table 13 and Equations (22) and (23). 
The nominal standard atmosphere altitude corresponding to <$ stc j and 6 std 
in Table 13 was selected based on an average of the stabilized point 
data for each W/6 condition. All of the actual test W/ 6 values were 
within ±1 percent of the ITERATE W/6 values shown in Table 13 which were 
selected for use in the cruise performance modeling program ITERATE 
as discussed in Sections 3. 2. 4.1 and 4.4.1. Stabilized point corrected 
RPM, standardized range factor, standardized specific range and specific 
range parameter data are plotted versus Mach number in Section 4.4.1 
(Figures 4.23-4.38). The data generally show the anticipated character- 
istics for each of these parameters. 
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Table 12: Stable Point Summary 


Condition 

Target 

W/S 

(lbs) 

Test 

W/6 

(lbs) 

Mach 

No. 

Test 

6 

Test 

n //e 

2 

(RPM) 

Test 

Range 

Factor 

(NM) 

Std 

Range 

Factor 

(NM) 

Test 

Specific 

Range 

(NM/lb) 

Std 

Specific 

Range 

(NM/lb) 

Specific 

Range 

Parameter 

(NM/lb) 

1 

22000 

21A98 

.595 

.722 

18292 

2808 

291A 

.181 

.1879 

.1307 

2 

22000 

212AO 

.537 

.715 

17350 

3003 

3086 

.1979 

. 203A 

.1A1A 

3 

22000 

21167 

. A77 

.696 

163A7 

3195 

3195 

.217 

.217 

.151 

A 

22000 

21070 

. A22 

.685 

15335 

3318 

3267 

.23 

.226 

. 157A 

5 

22000 

212A0 

. 26A 

.663 

13950 

2613 

2A90 

.1857 

.177 

.1231 

6 

A0000 

A0100 

. A2 

.359 

16870 

A200 

3976 

.291 

.2755 

. 10A5 

7 

A0000 

39600 

.5A8 

.372 

17890 

A735 

A6A5 

.321 

. 31A9 

.1196 

8 

A0000 

397A7 

.699 

.387 

19868 

3990 

A072 

.2591 

. 26A3 

. 100A 

9 

A0000 

A0225 

.755 

.389 

20920 

3502 

3592 

. 22A1 

.23 

.0871 

10 

60000 

59880 

. A73 

. 2A9 

19060 

A970 

5016 

.333 

.336 

.083 

11 

60000 

60025 

. A99 

.2397 

192AO 

5050 

A907 

. 35A 

.3AA 

. 08A1 

12 

60000 

59500 

. 6A 

. 25A 

19A75 

5680 

58A8 

.375 

.386 

.0955 

13 

60000 

59600 

.652 

. 2A7 

19600 

5635 . 

56A2 

.3825 

.3829 

. 90A6 

1A 

60000 

59600 

.72 

.223 

20550 

52A5 

A7A2 

.3775 

. 3A12 

. 08A2 

15 

60000 

59750 

.732 

.257 

20A30 

5200 

5A17 

.3385 

.3527 

.0873 

16 

60000 

60075 

. 73A 

.26 

20A00 

5220 

5502 

. 33A3 

.3523 

.086 

17 

60000 

59660 

.785 

.226 

21A75 

AA35 

A063 

.3288 

.3012 

. 07AA 

18 

80000 

80025 

.537 

.182 

21325 

A920 

A723 

.3375 

. 32A 

.0615 

19 

80000 

79230 

.687 

.186 

209A5 

6000 

5886 

. A075 

. A000 

.0758 

20 

80000 

80075 

.723 

.187 

21215 

5950 

5869 

.3975 

.3920 

.07A1 

21 

80000 

78900 

. 7A3 

.195 

21500 

5680 

58A2 

.3687 

.3792 

.0718 


Table 13: ITERATE Stable Point Prediction Cases 


Case 

Target 

W/6 

(lbs) 

"ITERATE" 
- W/6 
(lbs) 

Nominal 

Altitude 

(ft) 

6 J 
std 

e : 

std 

1 

22000 

21284 

9700 

.6957 

.9333 

2 

40000 

39912 

24500 

.3792 

.8316 

3 

60000 

59787 

34000 

.2467 

.7662 

4 

80000 

79487 

39500 

.1896 

.7519 
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4.3.2 Push-Pull Maneuvers 


Aerodynamic data from pull-up, push-over, pull-up (push-pull) 
maneuvers were compared to those obtained from accel/decel maneuvers 
to evaluate the correlation between techniques. Lift coefficient 
data for two representative maneuvers are presented in Figures 4.18 
through 4.19, and drag coefficient data are presented in Figures 
4.20 through 4.21. For each figure, the appropriate family of 
baseline curves, as determined from accel/decel maneuvers, is pre- 
sented for reference. Data points from the push-pull maneuver 
are shown with symbols. The lift coefficient push-pull data crossed 
over the baseline curves with a point of intersection at approxi- 
mately the one g condition. The drag coefficient push-pull data 
generally fell within 10 to 15 drag counts of the applicable baseline 

curve (solid line) and, in some cases, indicated that the extrapolated 
♦ 

portion of the baseline curve may have been incorrect. The crossover 
experienced by the lift coefficient data was analyzed and theorized 
to be primarily due to bending of the nose boom with normal load 
factor. A correction to angle of attack was made for angular rate 
as discussed in Section 3. 2. 3. 2, but a correction was not made for 
boom bending. For load factors greater than one, bending of the 
nose boom will result in an angle of attack reading smaller than 
the actual angle of attack; and a positive correction is necessary. 

A negative correction is needed for a load factor less than one. This 
correction would tend to bring the lift coefficient push-pull data in 
line with the baseline curves, since the point of intersection occurred 


130 



at approximately the one g condition. The push-pull drag coefficient 

data would also be slightly shifted with this correction but would 

continue to fall generally within 10 to 15 drag counts of the baseline 

curves due to the relatively small magnitude of the versus a slope. 

s 

Unfortunately, a boom bending calibration was not made when the air- 
craft was configured for the flight test program. An estimate of the 

boom bending angle of attack correction, ^ a j, oom > as a function of 

bending 

normal load factor was made by analyzing the physical characteristics 
and configuration of the nose boom. Figure 4.22 presents this estimate 
along with data points from the two push-pull maneuvers showing the 

^ a boom needed to bring the push-pull data back in line with 

bending 5 

the baseline curves. The agreement between the estimated correction 

and these data is relatively close; and, as a result, the lack of 
agreement between the push-pull data and the baseline curves was 
primarily believed to be caused by the lack of a boom bending correc- 
tion for angle of attack. 

The results definitely showed that the push-pull maneuver could 
be very useful to any performance definition flight test program for 
an aircraft with negligible flexibility effects. The appropriate cor- 
rections to angle of attack must be defined, such as boom bending and 
angular rate. The push-pull maneuver can be used to efficiently 
extend the angle of attack range during definition of selected 
baseline aerodynamic characteristics and thus minimize the uncertainty 
of extrapolating baseline curves. It is not well suited to initial 
identification of power and Mach effects on lift and drag character- 
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istics, since the push-pull begins with a stable condition (at an 
appropriate power setting) and then experiences a limited Mach vari- 
ation during the maneuver. It would be difficult, for example, to 
define the baseline aerodynamic characteristics for a high Mach, low 
power condition from a push-pull maneuver. The push-pull maneuver 
can definitely complement and serve as a cross-check on data obtained 
from accels and decels. In fact, the push-pull may be used in place 
of selected accels/decels once the power and Mach effects have been 
identified. When using the push-pull, the accuracy of the angle of 
attack corrections should be checked by comparing data from both types 
of maneuvers across the angle of attack range. 
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Figure 4.22: Boom Bending Correction Estimate 
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4.4 PERFORMANCE MODELING 


4.4.1 Cruise Performance Prediction 

The baseline aerodynamic and engine characteristics defined in 
Section 4.2 were digitized in table look-up format for use in the 
ITERATE cruise performance prediction program. Four W/6 cases were 
evaluated with the ITERATE program as summarized in Table 13. 

Figures 4.23 through 4.38 present the corrected RPM, range factor, 
specific range and specific range parameter predictions generated with 
ITERATE for these cases along with ±5 and ±10 percent error bands. 

The stabilized point data presented in Section 4.3.1 are included for 
comparison. The cuirecteJ RFM predictions generally were well within 
five percent of the stabilized point data. Exceptions to this were 
at the low Mach end of a particular W/6 Mach range where stabilized 
conditions are more difficult to achieve and cruise performance charac- 
teristics are of relatively low interest. For standardized range fac- 
tor, the ITERATE predictions were generally within ten percent of the 
stabilized point data with the lower W/6 cases experiencing better 
prediction correlation than the higher W/6 cases. For the 60,000 W/6 
case, where approximately twice as many stabilized points were available 
due to the duplicated tests, considerable scatter in the stabilized 
point data can be observed which indicates that a significant error 
band is associated with definition of range factor when using exclu- 
sively stabilized point data, the currently accepted practice. The 
ITERATE predictions for standardized specific range were also within 
10 percent of the stabilized point data with all points within 3 percent 
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for the 22,000 and 40,000 W/6 cases. The specific range parameter 
projections had similar characteristics when compared to the stabilized 
point data as those for standardized specific range. 

Significant sources of error for comparison of the ITERATE pre- 
dictions with stabilized point data include 1) the data scatter and 
resulting uncertainty associated with definition of the baseline 
aerodynamic and engine curves, 2) slightly off-stabilized test con- 
ditions for the stabilized point data and 3) possible instrumentation 
system errors which affected stabilized point and baseline character- 
istic data differently. 

When evaluating the agreement between the ITERATE predictions 
and flight data, the above sources of error must be considered along 
with the error band associated with definition of the same cruise 
characteristics using exclusively stabilized point data. This error 
band was estimated to be at least 5%. In addition, the high sensitivity 
of all the cruise parameters to small variations in the fairing of 
baseline engine curves such as fuel flow is a significant consideration, 
since a larger scatter band was experienced for the engine data than 
should normally be expected. The ITERATE program may also be used in 
conjunction with stable point data to assist in defining the final 
baseline aerodynamic and engine curves when significant data scatter 
is present. Several trial fairings may be evaluated with ITERATE and 
then compared with stable point data to determine which fairing is the 
most realistic. The prediction correlation achieved was considered 
good in view of these . factor s and should improve on future programs 
where less data scatter is anticipated for the baseline engine charac- 
teristics. 
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Figure 4.23: ITERATE Corrected RPM Prediction, W/6 = 22000 lbs 
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Figure 4. 24: ITERATE Corrected RPM Prediction, W/6 = 40000 lbs 
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Figure 4.26: ITERATE Corrected RPM Prediciton, W/6 = 80000 lbs 
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Figure 4.30: ITERATE Standardized Range Factor Prediction, W/6 = 80000 lbs 
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Figure 4.33: ITERATE Standardized Specific 
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•Figure 4.34: ITERATE Standardized Specific Range Prediction, W/6 = 80000 lbs 


























4.4.2 Flight Trajectory Performance Prediction 


Several in-flight trajectories were flown so that a comparison 
between flight data and MODEL predictions could be made. These trajec- 
tories consisted of climbs and accelerations/decelerations as summarized 
in Table 14. Actual in-flight data for time, fuel used and specific 
excess power (for the accels/decels) were compared with predictions 
generated by the MODEL program for similar conditions. P g for the 
in-flight data was computed with 

P = n V 
s x 

w 


as shown in Reference 6. 
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Table 

14: 

Flight 

Trajectory ! 

Summary 


PROFILE 

MANEUVER 

FLIGHT 

RUN 

ALTITUDE: 
START/ END 
(ft) 

MACH: 

START/END 

WEIGHT: 
START/ END 
(lbs) 

1 

94% Climb 

188 

7 

19041/20127 

.483/. 495 

16254/16241 

2 

99% Climb 

188 

16 

19939/24755 

.710/. 697 

16029/15972 

3 

90% Climb 

189 

3 

6880/10214 

.430/. 454 

16331/16286 

4 

95% Accel 

184 

3 

8757/8641 

.326/. 598 

16029/15974 

5 

50% Decel 

184 

5 

8628/8621 

.559/. 532 

15927/15925 

6 

90% Accel 

184 

11 

8669/8648 

.291/. 485 

15892/15857 

7 

80% Accel 

184 

34 

9525/9544 

.266/. 292 

15032/15027 

8 

95% Accel 

185 

4 

23911/23900 

.414/. 497 

15842/15826 

9 

70% Decel 

185 

14 

24530/24550 

.676/. 644 

15259/15254 

10 

85% Decel 

185 

21 

24542/24569 

.715/. 689 

15083/15073 
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4. 4. 2.1 Climbs 


MODEL predictions for time and fuel used as a function of altitude 
are presented in Figures 3.39 through 4.44 for the three climb pro- 
files evaluated. Actual in-flight data are shown with symbols. The 
first two profiles generally agreed within ten percent when comparing 
MODEL and in-flight data. The MODEL predictions for Profile 3 (Figures 
4.43 and 4.44) were less accurate but generally were less than 15 
percent in error. The primary deviation in this profile occurred 
during the first 15 seconds, after which a fairly close approximation 
was obtained considering relative slopes of the MODEL and in-flight 
data. Although better agreement was hoped for, the results were 
considered reasonable considering three identified sources of error. 
First, the degree of data scatter present in defining the baseline 
engine curves (Section 4.2.2) was larger than should normally be ex- 
pected, as shown with the Lear 55 program. As a result, the corrected 
thrust, airflow and fuel flow baseline curves were subject to a larger 
uncertainty. Second, the actual in-flight profiles were subject to 
significant airspeed, power and temperature variations which could 
not be totally accounted for within the MODEL program. For example, 
it was very straightforward to use MODEL for a constant Mach/constant 
power climb profile; but an actual flight profile could not realis- 
tically be flown exactly on these conditions. Modifications were made 
to MODEL to include variations in these parameters; however, precise 
input of each perturbation created unrealistic conditions for the MODEL 
program to follow precisely due to instrumentation accuracies and noise. 
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As a result, a small degree of smoothing was applied to the MODEL pro- 
file inputs. The smoothing combined with the instrumentation inaccu- 
racies were a source of error which highlighted the difficulty of 
using an actual in-flight trajectory for comparison purposes. The 
third potential source of error concerned the effect of wind gradients 
which may have been present during flight evaluation of the actual 
profiles. This error source was also identified as part of the work 
conducted in Reference 4 and is almost impossible to account for due 
to the difficulty of obtaining accurate wind measurements. Despite 
these problems, reasonable predictions could be obtained for the Lear 
35; and significantly improved correlation is anticipated for future 
programs which experience tighter data grouping on the baseline engine 
curves. Since future programs should be primarily interested in "on 
speed" and "on power" predictions, the inaccuracies resulting from 
attempting to follow precisely an actual in-flight profile should be 
eliminated for this typ"e of application. Actual profiles should still 
be flown in selected cases for comparison purposes to estimate the 
correlation associated with a particular program,- however. 
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Figure 4.39: MODEL Time Prediction, Profile 1 
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Figure 4. AO: MODEL Fuel Used Prediction, Profile 1 
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Figure 4.42 : MODEL Fuel Used Prediction, Profile 2 
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Figure 4.44 : MODEL Fuel Used Prediction, Profile 3 
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4 . 4 . 2 . 2 Accelerations /Decelerations 

MODEL predictions for time, fuel used and specific excess power 
(P ) as a function of Mach are presented in Figures 4.45 through 4.50 
for two accel/decel profiles. These profiles represented approxi- 
mately a "best" and "worst" case condition with the remaining accel/ 
decel data plots presented in Appendix I. As with the climbs, actual 
in-flight data are shown with symbols. The majority of the in-flight 
data fell within 10 percent of the MODEL predictions with the worst 
case being a 26.6% error for P g on Profile 7 (Figure 4.50). On this 
particular run, the maximum absolute error for P g was approximately 
4.8 ft/sec; and the large percentage error resulted due to the rela- 
tively low absolute magnitude of P (18 ft/sec) for this low speed 

s 

flight condition. In addition, the baseline engine characteristics 
for this run were extrapolated, since the lowest Mach number for 
which baseline engine curves were defined was 0.3 and the actual 
test was conducted from .27 to .29 Mach. As with the climb trajec- 
tories, better agreement was hoped for; but the same sources of error 
identified in Section 4. 4. 2.1 were present. The acceleration and 
deceleration prediction results reemphasize the fact that actual 
profiles should still be flown for selected conditions to establish 
the correlation associated with a particular program. If the agree- 
ment between modeling predictions and flight data is acceptable, then 
a wide range of flight profiles may be modeled. 
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Figure 4.45: MODEL Time Prediction, Profile 6 
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Figure 4.46: MODEL Fuel Used Prediction, Profile 6 
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Figure 4.47: MODEL P g Prediction, Profile 6 
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Figure 4. 48: MODEL Time Prediction, Profile 7 
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Figure 4.49: MODEL Fuel Used Prediction, Profile 7 
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4.5 ERROR ANALYSIS 


Results of the phase one error analysis as described in Section 

3.2.5 are presented in Tables 15 through 26. The largest relative 

and absolute errors for lift coefficient resulting from a one percent 

error were found for n and dynamic pressure which were approxi- 

Z body 

mately one percent and .008, respectively. For drag coefficient, 
fairly large relative errors were present for all the instrumentation 
parameters evaluated except total temperature, due to the small abso- 
lute value of Cp . In terms of drag counts, the maximum absolute error 

showed that angle of attack, n and n had the largest effect 

X body Z body 

with a maximum absolute error of approximately 15 counts. Static . 
pressure, N^, and dynamic pressure had a significant effect on cor- 
rected and uncorrected thrust with a maximum relative error of 1.8 
percent and a maximum absolute error of 109 pounds, resulting from 
static pressure on corrected thrust. The same instrumentation param- 
eters had a significant effect on corrected and uncorrected airflow. 

A maximum relative error of 1.75 percent on corrected airflow resulted 
from static pressure, and a maximum absolute error of 3.33 lbs/sec 
resulted from N^. Careful review of Tables 15 through 26 will 
provide identification of the relative impact that a one percent error 
in each instrumentation variable had on baseline aerodynamic/engine 
characteristics. 

Results of the phase two error analysis are presented in Table 
27. The actual transducer accuracies available during the program 
for the most critical instrumentation parameters were used to estimate 
the relative and absolute errors associated with this program. For 
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lift coefficient, n had the largest relative and absolute error 

Z body 

of .525 percent and .004, respectively. The largest error contribution 
to drag coefficient was angle of attack, which had a relative and abso- 
lute error of 1.86 percent and 14 drag counts, respectively. The influ- 
ence of fuel flow, longitudinal acceleration and vertical acceleration 
was also significant. Fuel flow was the primary source of error for 
the engine parameters as seen from the table. 

Several conclusions may be drawn from the error analysis. The 
high quality static and dynamic pressure transducers used during the 
program greatly reduced the error potential of these two instrumentation 
parameters as identified in the phase one analysis. Accelerometers with 
at least *"he accuracy of those used during this program are important 
to keeping the resulting errors within acceptable levels. Angle of 
attack was the most critical parameter affecting drag even though its 
accuracy was considered the best available within the state of the art. 

A maximum absolute error of 14 drag counts resulted from an accuracy of 
±.1°. As a result, considerable attention must be given to the accu- 
racy of the angle of attack measurement when using the performance 
modeling approach. Fuel flow was also identified as a critical param- 
eter, especially for the engine characteristics. As with angle of 
attack, the fuel flow accuracy of ±10 lbs/hr was considered near the 
state of the art for a fuel flow transducer with the appropriate range 
needed in this program. When using the thrust and airflow prediction 
technique developed in this program (Section 3. 2. 1.2), the accuracy 
of the fuel flow transducer will probably determine the maximum predic- 
tion error and consequently high quality transducers are necessary to 
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the overall success of the technique. The engine RPM accuracy of ±.2% 
was easily obtainable with standard "off-the-shelf" transducers and 
was sufficient to minimize the resulting errors on baseline character- 
istics. When establishing instrumentation requirements for an overall 
performance modeling flight test program. Tables 15 through 27 
should be reviewed carefully. One limitation should be realized when 
attempting to project this analysis to another program. All of the 
error cases were evaluated within the Lear 35 performance envelope. 

The numerical results may change somewhat based on an expanded or 
contracted performance envelope, but the critical parameters identified 
should remain approximately the same. 
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Table 15: 

Maximum 

Relative Error Analysis 

for Lift 

Coefficient (C^ ) 
s 






ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


parameter 

VARIED 

MAX RELATIVE 
ERROR (%) 

ABSOLUTE 

ERROR 

PARAMETER 

VARIED 

W 

6 

(lbs) 

MANEUVER 

M 

n il 

.01 


.22 x 10' 4 

95% 

22000 

957» Accel 

.6 

n ir 

.01 


.22 x 10~ 4 

95% 

22000 

957. Accel 

.6 

W fL 

.02 


.1 x 10" 3 

1474 ~ 
hr 

22000 

957« Accel 

.33 

W fR 

.02 


.1 x 10" 3 

1474 l !* 8 
hr 

22000 

957. Accel 

.33 

n 

x body 

.03 


.14 x 10~ 3 

.27 g 

22000 

957. Accel 

.33 

n 

Z body 

1.01 


.52 x 10" 2 

-96 g 

22000 

957. Accel 

.33 

a 

.03 


.2 x 10~ 3 

8.5° 

60000 

957. Accel 

.48 

Static 

Pressure 

.14 


.37 x 10“ 3 

3.93 psi 

60000 

957. Accel 

.79 

Dynamic 

Pressure 

.98 


. 78> x 10' 2 

.54 psi 

22000 

507. Decel 

.27 

Total 

Temperature 

<.001 


< 10-5 
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Table 16: Maximum 

Absolute Error Analysis for Lift 

Coefficient (C^ 

) 

8 




ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


parameter 

VARIED 

MAX ABSOLUTE 
ERROR 

RELATIVE 
ERROR (%) 

PARAMETER 

VARIED 

W 

6 (lbs) 

MANEUVER 

M 

n il 

.77 x 10~ 4 

.01 

95.87. 

60000 

957. Accel 

.48 

V 

.52 x 10' 4 

.01 

95.17. 

60000 

95 % Accel 

.48 

W fL 

.1 x 10" 3 

.01 

73 7 l bs 
hr 

60000 

95% Accel 

.48 

W fR 

.1 x 10" 3 

.02 

1474 

hr 

22000 

95% Accel 

.33 

n 

X body 

.14 x 10' 3 

.03 

-27 g 

22000 

957. Accel 

.33 

n 

Z body 

.803 x iO" 2 

1.00 

1.005 g 

22000 

50% Decel 

.27 

a 

.2 x 10" 3 

.03 

8.5° 

60000 

95% Accel 

.48 

Static 

Pressure 

.375 x 10 -3 

.06 

3.55 psi 

60000 

80% Accel 

.5 

Dynamic 

Pressure 

.785 x 10" 2 

.98 

.54 psi 

22000 

50% Decel 

.27 

Total 

Temperature 

< 10' 5 

< .001 
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Table 17: 

Maximum Relative Error 

Analysis for Drag Coefficient (C^ ) 

a 





ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


PARAMETER 

VARIED 

MAX RELATIVE 
ERROR (7.) 

ABSOLUTE 

ERROR 

PARAMETER 

VARIED 

W 

(lbs) 

MANEUVER 

M 

n il 

.57 

.133 x 10~ 3 

517. 

22000 

50*4 Decel 

.55 

n ir 

.58 

.137 x 10" 3 

50.57. 

22000 

50% Decel 

.55 

W fL 

1.65 

.75 x 10" 3 

1474 ^ 
hr 

22000 

95% Accel 

.33 

W fR 

1.4 

.8 x 10' 3 

1508 ~ 
hr 

22000 

957. Accel 

.33 

i — 1 n 

vl X 

oo body 

3.4 

.15 x 10~ 2 

.27 g 

22000 

957. Accel 

.33 

n 

Z body 

1.65 

.128 x 10" 2 

1.008 g 

22000 

507. Decel 

.27 

a 

1.82 

.137 x 10" 2 

9.8° 

22000 

507. Decel 

.27 

Static 

Pressure 

.6 

.28 x 10" 3 

10.65 psi 

22000 

95% Accel 

.33 

Dynamic 

Pressure 

1.4 

.7>x 10~ 3 

1.1 psi 

22000 

95% Accel 

.33 

Total 

Temperature 

.10 

5.88 x 10" 4 

-48 .3°C 

60000 

80% Decel 

.5 
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TabJe 18: Maximum AbsoLute Error Analysis for Drag Coefficient (C^ ) 

8 




ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


PARAMETER 

VARIED 

MAX ABSOLUTE 
ERROR 

RELATIVE 
ERROR (%) 

PARAMETER 

VARIED 

W 

6 (lbs) 

MANEUVER 

M 

n il 

.199 x i0~ 3 

.33 

83.27. 

60000 

80% Decel 

.5 

i 

n ir 

.201 x 10' 3 

.34 

82.67. 

60000 

80% Decel 

.5 

W f L 

.75 x 10" 3 

1.65 

1474 ; bs 

hr 

22000 

95% Accei 

.33 

W fR 

(*) 

1 

o 

X 

00 

1.4 

1508 

hr 

22000 

95% Accel 

.33 

n 

.15 X 10" 2 

3.4 

•27 g 

22000 

957. Accel 

.33 

X body 







n 

.128 x l-" 2 

1.65 

1.008 g 

22000 

507. Decel 1 

.27 

Z body 







a 

.137 x 10' 2 

1.82 

9.8° 

22000 

50% Decel 

.33 

Static 

Pressure 

.28 x 10" 3 

.6 

10.65 psi 

22000 

95% Accel 

.33 

Dynamic 

Pressure 

.84 x 10' 3 

1.1 

.62 psi 

60000 

957. Accel 

.48 

Tota I 

Temperature 

.588 x 10" 4 

.10 

-48 ,3°C 

60000 

80% Decel 

.5 
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Table 19: 

Maximum 

Relative Error Analysis 

for Corrected 

Gross Thrust 

* 

t„ 





ASSOCIATED 

VALUE OF 

i 

FLIGHT CONDITION 


PARAMETER 

varied 

MAX RELATIVE 
ERROR (7.) 

ABSOLUTE 

ERROR 

PARAMETER 

VARIED 

W 

6 

(lbs) 

MANEUVER 

M 

n il 

1.1 


26.5 lbs 

527. 

22000 

50% Decel 

.55 

N iR 

1.13 


27 lbs 

50.57. 

22000 

50% Decel 

.55 

W fL 

.55 


12.2 lbs 

278 1^- 
hr 

22000 

50% Decel 

.55 

W fR 

.52 


43 lbs 

442 —■ 
hr 

60000 

80% Decel 

.72 

Static 

Pressure 

1.8 


42 lbs 

10.76 ps 1 

22000 

50% Decel 

.55 

Dynamic 

Pressure 

.8 


20 lbs 

2.3 psl 

22000 

50% Decel 

.55 

Total 

Temperature 

.022 


1.8 lbs 

36.4° 

60000 

80% Decel 

.72 
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Table 20: Maximum 

Absolute 

Error 

Analysis for Corrected 

F 

Gross Thrust O^*— ) 
C 2 




ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


parameter 

varied 

MAX ABSOLUTE 

error 

RELATIVE 
ERROR (%) 

PARAMETER 

VARIED 

W 

6 

(lbs) 

MANEUVER 

M 

n il 

79 lbs 

.67 


95.47. 

60000 

957, Accel 

.79 

n ir 

74.5 lbs 

.64 


94.9% 

60000 

957. Accel 

.79 

W fL 

58 lbs 

.50 


788 

hr 

60000 

957. Accel 

.79 

V 

58.2 lbs 

.50 


785 

hr 

60000 

957. Accel 

.79 

Static 

109 lbs 

.95 


3.87 psi 

60000 

957. Accel 

.48 

Pressure 


- 






Dynamic 

Pressure 

20 lbs 

.80 


2.3 psi 

22000 

50% Decel 

.55 

Total 

Tempera ture 

1.8 lbs 

.02 


36.4° 

60000 

80% Decel 

.72 
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MAX RELATIVE 
ERROR (7.) 


ASSOCIATED 

ABSOLUTE 

ERROR 


VALUE OF 

PARAMETER 

VARIED 


FLIGHT CONDITION 
1- MANEUVER 


n il 

1.65 

2.1 

sec 

n ir 

1.68 

2.15 lbs 
sec 

W fL 

.54 

.634 — 
sec 

U 

fR 

.52 

, i e lbs 

( 1.16 

v sec 

Static 

Pressure 

1.75 

2.2 

sec 

Dynamic 

Pressure 

.8 

i.i lbs 
sec 

Total 

Temperature 

00 
O - 

• 

.217 lbs 
sec 


527. 

22000 

50% Decel 

.55 

50.57. 

22000 

50% Decel 

.54 

268 

hr 

22000 

50% Decel 

.55 

456 

hr 

60000 

80% Decel 

.72 

10.76 psl 

22000 

50% Decel 

.55 

2 .3 psi 

22000 

50% Decel 

.55 

45.2 ° 

60000 

95% Accel 

.5 


\ 
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Table 22: Maximum Absolute Error Analysis for Corrected Airflow (—g ) 

C 2 




associated 

RELATIVE 
ERROR (%) 

VALUE OF 

FLIGHT CONDITION 


PARAMETER 

VARIED 

MAX ABSOLUTE 
ERROR 

PARAMETER 

VARIED 

U 

6 

(lbs) 

maneuver 

M 

n il 

3.33 

sec 

1.26 

95.57. 

60000 

95% Accel 

.5 

n ir 

3.28 — 
sec 

1.24 

95.57. 

60000 

957. Accel 

.51 

W f L 

1.37 — 

sec 

.50 

724 i bs 
hr 

60000 

95% Accel 

.48 

W f R 

1.36 — 
sec 

.5 

704 ' bS 
hr 

60000 

95% Accel 

.48 

Static 

Pressure 

2.2 lbs 
sec 

1.75 

10.76 psi 

22000 

50% Decel 

.55 

Dynamic 

Pressure 

i.i — 
sec 

.8 

2.3 psi 

22000 

507. Decel 

.55 

Total 

Temperature 

.217 lbs 

sec 

.08 

45.2° 

60000 

957. Accel 

.5 
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Table 23: Maximum 

Relative Error 

Analysis for Gross 

Thrust (F ) 

O 





ASSOCIATED 

ABSOLUTE 

ERROR 

VALUE OF 

FLIGHT CONDITION 


PARAMETER 

varied 

MAX RELATIVE 
ERROR (7.) 

PARAMETER 

VARIED 

W 

6 

(lbs) 

MANEUVER 

M 

n il 

.75 

33.7 lbs 

95.47. 

60000 

95% Accel 

.79 

n ir 

.8 

16.5 lbs 

527. 

22000 

50% Decel 

.55 

W fL 

.55 

10.8 lbs 

268 ^ 
hr 

22000 

50% Decel 

.55 

W fR 

.52 

14.7 lbs 

456 iil 
sec 

60000 

80% Decel 

.72 

Static 

Pressure 

1.0 

20 lbs 

10.76 psi 

22000 

50% Decel 

.55 

Dynamic 

Pressure 

1.1 

22 lbs 

2.25 Psi 

22000 

50% Decel 

.53 

Total 

Temperature 

.02 

.65 lbs 

36.7° 

60000 

80% Decel 

.72 
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'i'able 24: Maximum 

Absolute Error Analysis 

for Gross Thrust 

<V 





ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 


parameter 

VARIED 

MAX ABSOLUTE 
ERROR 

RELATIVE 
ERROR (%) 

PARAMETER 

VARIED 

W 

6 

(lb&l 

MANEUVER 

M 

V 

39 lbs 

.48 

95.57. 

22000 

95% Accel 

.6 

n ir 

40 1 bs 

.48 

95.07. 

22000 

95% Accel 

.6 

W fL 

42 lbs 

.5 

1474 } bs 
hr 

22000 

957. Accel 

.6 

u 

fR 

42 lbs 

.50 

1494 ~ 
hr 

22000 

957. Accel 

.6 

Static 

Pressure 

20 lbs 

'1.0 

10.76 psi 

22000 

507. Accel 

.55 

Dynamic 

Pressure 

28 lbs 

.33 

2.5 psi 

22000 

95% Accel 

.6 

Total 

Temperature 

.65 lbs _ 

.02 

u> 

ON 

• 

0 

60000 

804 Decel 

CM 

t*^ 

• 


Table 25: Maximum Relative Error Analysis for Airflow (W a ) 


ASSOCIATED 


parameter 

MAX RELATIVE 

absolute 

varied 

ERROR (7.) 

ERROR 

n il 

1.42 

1.48 — 
sec 

n ir 

1.38 

1.44 iii 
sec 

W f L 

.54 

.58 iSi 
sec 

u 

fR 

.52 

.437 lbs 

sec 

Static 

Pressure 

1.0 

i.i 

sec 

Dynamic 

Pressure 

.95 

1.2 

sec 

Total 

Tempera ture 

.03 

.031 iii 
sec 


VALUE OF 

FLIGHT CONDITION 


PARAMETER 

VARIED 

U 

6 

(lbs) 

MANEUVER 

M 

95 .47. 

60000 

95% Accel 

.79 

94.97. 

60000 

95% Accel 

.79 

268 

hr 

22000 

50% Decel 

.55 

449 iii 
hr 

60000 

80% Decel 

.72 

10.76 psi 

22000 

50% Decel 

.53 

2.3 psi 

22000 

50% Decel 

.53 

44.8° 

60000 

95% Accel 

.5 



Table 26: Maximum Absolute Error Analysis for Airflow (W a ) 





ASSOCIATED 

VALUE OF 

FLIGHT CONDITION 



parameter 

VARIED 

MAX ABSOLUTE 
ERROR 

RELATIVE 
ERROR (%) 

PARAMETER 

VARIED 

1 W 

MANEUVER 

M 


n il 

2.4 

1.07 

95% 

22000 

95% Accel 

.6 


n ir 

2.48 

1.16 

95% 

22000 

957. Accel 

.6 


W fL 

1.06 

.50 

1474 J; bs 
hr 

22000 

95% Accel 

.6 

h- * 
00 
"•J 

w 

fR 

1.07 

.50 

1508 

hr 

22000 

957. Accel 

.6 


Static 

Pressure 

1.1 ^2. 
sec 

1.0 

10.76 psi 

22000 

507. Decel 

.53 


Dynamic 

Pressure 

1.2 

sec 

.95 

2.3 psi 

22000 

507. Decel 

.53 


Total 

.031 

.03 

44.8° 

60000 

957. Accel 

.5 


Temperature 



Table 27: Error Analysis Summary Based on Instrumentation Accuracy 


BASELINE 

MOST CRITICAL 

SYSTEM MAX 

: RELATIVE 

ASSOC ASS 

MAX ASS ASSOC 

RELATIVE 

PARAMETER 

PARAMETER 

ACCURACY 

ERROR (Z) 

ERROR 

ERROR ERROR (Z) 



t .005 p 

.525 

.2 71 a 10" 2 

.4 a 10‘ 2 

.496 

c. 

body 







Dynamic pressure 

* .002 pal 

.564 

.291 a 10“ 2 

.291 a 10‘ 2 

.364 


W i 

noiii 

hr 

1.12 

.051 a 10“ 2 

.051 a 10‘ 2 

1.12 

C- 

n 

*body 

1 .001 1 

1.26 

.056 a 10‘ 2 

.056 a 10‘ 2 

1.26 

°e 

", 

1 .005 • 

.618 

.065 a 10* 2 

.065 a 10' 2 

.816 


‘body 







a 

1 .1° 

1.66 

.14 a 10" 2 

.14 a 10" 2 

1.66 



1 .002 psl 

.555 

.027 a 10 -2 

.027 a 10“ 2 

.355 


"l 

* .21 

.448 

10.7 lbs 

16.56 lbs 

.14 

F 

W f 

* 10 Kr 1 

1.97 

45.9 lbs 

75.6 lbs 

.64 

"e* 

Static pressure 

1 .00075 psl 

.012 

0.29 lbs 

2.11 lbs 

.018 

*2 


A .002 psl 

.07- 

1.74 lbs 

1.74 lbs 

.07 


"l 

1 .21 

.665 

.85^ 
' sec 


.665 


W f 

* 10 i— 

hr 

2.01 



2.01 

*4 

Static praeaura 

1 .00075 psl 

.012 



.012 



* .001 

.07 

.096 

• cc 

.096 ^ 

• CC 

.07 


"l 

t .21 

.506 

6.55 lbs 

8.42 lbs 

.101 


W * 

t 10 

hr 

2.05 

40.5 lbs 

40.5 lbs 

2.05 

r . 

Static pressure 

* .00075 psl 

.007 

0.159 lbs 

.139 lbs 

.007 


Dynamic pressure 

1.002 

.096 

1.96 lbs 

2.24 lbs 

.026 


N, 

1 .21 

.297 

.51 i*! 

.505 1*1 

.225 


1 

sec 

• CC 



V. 

t io 

2.01 

2.16^1 

2.16^1 

2.01 


f 

hr 

ICC 

• CC 


w 

' • 

Stetic pressure 

1 .00075 psl 

.007 

.0077— 

ICC 

•«»” ITT 

.007 


Dynanlc pressure 

1 .002 

.062 

.104 

ICC 

Hr 

.067 
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4.6 DATA REPEATABILITY 


The entire maneuvering sequence for the 60000 W/6 case was re- 
peated during the program to assess data repeatability. For the 
baseline aerodynamic characteristics, the data from each 60000 W/6 
case easily fell within the scatter band experienced across all data 
and was usually in direct agreement with any slight variations ex- 
plained by the variation of W/6 between flights. For example, a 
slightly higher W/6 on the repeated maneuver for a given Mach number 
and power setting would produce slightly higher lift and drag coefficients 
at a slightly higher angle of attack as would be expected. A slight 
variation of W/6 off the target test condition is normal due to the 
continuous weight change experienced during flight. The most important 
fact observed was that data from the repeated tests fell in line with 
the original data, and the same baseline curves would have been defined 
regardless of which test sequence was used. The same repeatability 
characteristics were found with the engine data. Slight variations 
were present, but these were easily explained due to temperature and 
pressure variations between flights. Again, the same baseline engine 
curves would have been defined regardless of which test sequence was 
used. 
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5. ESTIMATED FLIGHT TIME SAVINGS 


One of the benefits of performance modeling is the amount of 
flight time saved in evaluating the performance characteristics of 
an aircraft when compared to conventional techniques. A significant 
amount of flight time will be saved for any program using performance 
modeling; however, the exact savings will depend on the particular 
aircraft characteristics and scope of the program along with the 
results of this effort. This program accomplished flight testing for 
both the conventional and performance modeling approaches so that the 
two methods could be compared. As a result, a considerable dupli- 
cation of testing was included. To provide an estimate of the po- 
tential benefit, the flight time required to accomplish a conventional 
cruise/climb/accel performance evaluation on the Lear 35 was estimated 
and compared with the required flight time using performance modeling. 
Assumptions are clearly outlined. Two approaches using performance 
modeling are considered: first, a very conservative effort similar 

to that used in this program; and second, an approach typical of that 
expected for future programs. 

Push-pull maneuvers are not included in the estimates for either 
the conventional or the performance modeling approaches, since they are 
typically added to either approach on an "as needed" basis. The 
modeling estimates include eight W/ 6 performance modeling sequences, 
which is considered the minimum number to provide sufficient data 
throughout the Mach range. Flight trajectory profiles are not included 
in the estimates, since the correlation between modeling predictions 
and flight data must be established for a particular program. 


190 


5.1 CONVENTIONAL EVALUATION 


Cruise 

Assumptions : 

1. Five W/6 configurations required corresponding to the five 
nominal altitudes presented in Table 28. 



Table 28: 

"Speed-Power" 

' Estimate 


Nominal 


S - P 

Increment 


Altitude 

S - P 

Time 

Time 

To tal 

(ft) 

Points 

(min) 

(min) 

(min) 

5000 

18 

72 

51 

123 

15000 

23 

92 

66 

158 

25000 

19 

76 

54 

130 

35000 

12 

48 

33 

81 

40000 

8 

32 

21 

53 


545 min = 
9.08 hr 

2. Stabilized (four-minute) speed-power points required 
every 10-knot airspeed increment within the envelope 
(from buffet boundary to V ; see Figure 3.3 ). 

3. Three minutes required to increment from one stabilized 
point to the next. 

4. Three flights required to accomplish the "speed power" 
points for an additional 45 minutes of takeoff, climb-out 
and return to base time. An additional 10 minutes will be 
required for two altitude changes during these flights. 
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"Speed Power" Estimate 545 

Takeoff /Climb-Out/Return ^ 

(15 minutes each flight) 

2 Altitude Changes 
(5 minutes each change) 

Total "Speed Power" Flight Time: 600 minutes. 

Climb/Accel 

Assumptions: 

1. The same five nominal altitudes were used for level accels 
to evaluate specific excess power characteristics. 

2. Three power settings were evaluated. 

3. Each altitude evaluation required an average of 20 minutes. 

4. One flight required. 

Total Climb/Accel Time 100 

Takeoff /Climb-Out/Return 15 

4 Altitude Changes 20 

Total Climb/Accel Flight Time: 135 minutes. 

Total Conventional Flight Time = 600 + 135 = 735 minutes 

= 12.25 hours. 
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5.2 PERFORMANCE MODELING, APPROACH I (CONSERVATIVE) 


Assumptions : 

1. Eight W/6 performance sequences 

2. Four of the W/<$ sequences include five stabilized points 
each but no push-pull maneuvers. 

3. Eight cardinal power settings evaluated. 

4. Three flights required. 


4 Sequences w/o stable points 
(45 mintes each) 

4 Sequences w/stable points 
(80 minutes each) 

Takeoff /Climb-Out /Re turn 

5 Altitude Changes 
Total: 


180 

320 

45 

25 

570 minutes 


Total Approach I Time = 570 minutes = 9.5 hours. 
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5.3 PERFORMANCE MODELING, APPROACH II (ANTICIPATED FOR FUTURE PROGRAMS) 


Assumptions : 

1. Eight W/5 performance sequences 

2. One of the W/6 sequences includes five stabilized points 
but no push-pull maneuvers. 

3. Four cardinal power settings evaluated 

4. Two flights required. 

•» nrt ■? nf e 

175 


7 Sequences w/o stable points 
(25 minutes each) 

1 Sequence w/stable points 
(60 minutes each) 

Takeoff /Climb-Out /Re turn 

6 Altitude Changes 


60 

30 

30 


Total: 295 minutes. 

Total Approach II Time = 295 minutes = 4.92 hours. 
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5.4 PERCENT REDUCTION IN FLIGHT TIME 

, , 12.25 - 9.5 „„ 

Approach I: 1 2~2 5 = 22.4% . 

, , 12.25 - 4.92 rn 

Approach II: 12~ 25 = 59.8% . 
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5.5 SUMMARY 


The above estimates indicate that a reduction in flight time of 
between 22.4% and 59.8% can be expected when using the performance 
modeling approach. This reduction will result in considerable savings 
in the associated areas of calendar time, cost and manpower. Estimates 
of these savings are, of course, dependent on the particular factors 
affecting each individual program. Considerably more information is 
obtained with performance modeling than with the conventional approach. 
Definition of both Mach and power effects on the lift and drag coef- 
ficient characteristics along with the ability to model cruise and 
flight trajectory performance characteristics for the entire flight 
envelope are distinct advantages of performance modeling. Flight time 
estimates used in this section were based on the Lear 35 aircraft. A 
similar approach may be used for different aircraft with appropriate 
estimates for stable point requirements, takeof f /climb-out/ return, etc., 
based on the aircraft envelope and performance characteristics. 
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6. FUTURE WORK 


This program established the baseline concepts and techniques of 
the performance modeling approach to flight testing. These methods 
and applicable software were developed and verified to the extent that 
they have already been successfully used on several performance flight 
test programs for business jet class aircraft. Several additional 
areas surfaced during this program which would be worthwhile as 
objectives for future research. These include 

a. Follow-on evaluation of test engine performance character- 
istics in an altitude test cell facility to determine the 
correlation between the in-flight engine model defined using 
"Thrust Modeling" and the test cell results. The engines 
from an aircraft that had recently completed a performance 
modeling flight test program would be evaluated in a facility 
such as that at NASA Lewis to establish the accuracy of the 
engine model prediction technique used in the performance 
modeling approach. 

b. Expansion of performance modeling to the entire maneuvering 
flight envelope of the aircraft. This would involve addi- 
tional emphasis on the push-pull maneuver and possibly 
definition and use of other maneuvers (i.e. the windup turn) 
to define aerodynamic characteristics for the entire range 
of angle of attack, Mach, and power. The MODEL program and 
AFFTC Performance Simulation Program currently have the 
capability to predict flight trajectory performance throughout 


197 



the maneuvering envelope of the aircraft given the expanded 
baseline characteristics. An ideal aircraft for the program 
would be a high performance fighter with a large "g" and 
Mach envelope. 

c. Development of a "real time" performance flight test data 
analysis capability using the performance modeling approach 
as the baseline. The performance modeling, test approach 
and data reduction techniques developed in this program 
provided the needed tools to directly develop a "real time" 
analysis capability. Required efforts would include 1) cas- 
cading the existing data reduction software into one "straight 
through" program with appropriate logic and software modifi- 
cations, 2) integration of the "real time" software with 

the flight test instrumentation system, 3) defining and 
developing "real time" display and test approach methodology, 
and 4) evaluation of the "real time" capability in a flight 
test program. 

d. Application of performance modeling to an aircraft with 
significant aeroelastic characteristics and a complex engine/ 
nacelle including a variable geometry inlet and nozzle. 

An ideal aircraft would be a high performance fighter with 
well documented aerodynamic and structural influence coef- 
ficient matrices and a high Mach capability. In addition, 
an accurate engine prediction deck which included sound 
installation effect information would be needed. 
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7. CONCLUSIONS AND RECOMMENDATIONS 


The most significant conclusions and recommendations resulting 
from this program are summarized in the following two subsections. 
Additional insight into a particular area may be gained by referring 
to the appropriate section of this report. Overall, all of the ob- 
jectives and projected technology contributions established at the 
beginning of the program were satisfied or exceeded. 
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7.1 CONCLUSIONS 


1. The performance modeling approach defined during this program 
provided a sound methodology for determining baseline aero- 
dynamic and engine characteristics using exclusively quasi 
steady-state maneuvers. 

2. The in-flight thrust and airflow prediction technique pro- 
vided three principal advantages over methods used in the 
past : 

a) Extensive engine instrumentation such as a tail pipe' 
probe was not required. 

b) The need for in-line engine deck computation as part 
of the flight data reduction software was eliminated. 

• c) An improvement in accuracy was achieved over methods 
which rely completely on engine deck predictions. 

3. The most critical instrumentation parameters affecting defi- 
nition of baseline ‘aerodynamic and engine characteristics 
were identified using two approaches. First, for the one 
percent error case, angle of attack, body accelerations and 
dynamic pressure had the largest influence on. aerodynamic 
characteristics. Engine characteristics were primarily 
affected by static pressure, fan RPM, fuel flow and dynamic 
pressure. Second, the actual transducer accuracies avail- 
able during the program were used to identify the most crit- 
ical instrumentation parameters. The body accelerations, 
angle of attack and fuel flow were identified as having the 
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largest error contributions for the aerodynamic character- 
istics. Fuel flow was the primary source of error for the 
engine characteristics. Since the instrumentation accuracies 
of the body accelerations, angle of attack and fuel flow were 
at or near state-of-the-art values, these parameters will 
probably have a significant influence on the errors associated 
with any performance modeling flight test effort. 

4. The push-pull maneuver may be used to efficiently extend the 
angle of attack range during definition of selected baseline 
aerodynamic characteristics for a nonflexible aircraft if 

the appropriate corrections to measurement of angle of attack 
have been defined, such as boom bending and angular rate. 

The push-pull can definitely complement data obtained from 
accels and decels by serving as a cross-check and minimizing 
the uncertainty in extrapolating baseline curves. However, 
it is not well suited to initial identification of power 
and Mach effects on lift and drag characteristics due to 
the limited Mach variation experienced for each power 
setting. 

5. The flight test maneuvers and methodology developed during 
this program were able to define the power as well as Mach 
and angle of attack effects on baseline aerodynamic charac- 
teristics. Significant power effects were identified for 
both lift and drag on the Learjet Model 35 aircraft and 
should be anticipated for any aircraft with jet engines 
mounted on the aft fuselage above the inboard wing section. 


201 



Definition of power effects is essential to accurate predic- 
tion of nonstabilized (i.e., excess thrust not equal to zero) 
performance characteristics such as in aircraft simulator 
applications. 

6. Prediction of stabilized cruise performance characteristics 
agreed with flight data within 10 percent and was usually 
well within five percent. This determination was made by 
comparing the cruise predictions from ITERATE with actual 
stabilized point data. Since the error band associated with 
stabilized point data was approximately five percent, the 
ITERATE prediction correlation was considered good. In 
addition, since the baseline aerodynamic and engine charac- 
teristics used in ITERATE were defined from quasi steady-state 
maneuvers, greater emphasis on these time efficient maneuvers 
appears justified when compared to the stabilized point 
method for definition of cruise performance characteristics. 

7. Prediction of flight trajectory performance charac teristics 
generally agreed with flight data within 10 percent, but 
several of the comparisons between in-flight data points 
and performance modeling predictions were well in excess of 
10 percent error with the worst case being a 26.6 percent 
discrepancy. Sources of error included abnormally high data 
scatter associated with definition of the baseline engine 
characteristics, wind effects and difficulty in modeling an 
actual in-flight trajectory subject to airspeed, altitude, 
power and temperature variations. Improved trajectory pre- 
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diction correlation with flight data is anticipated for 
future programs, but the degree of correlation should be 
established for each particular effort (see Recommendation 8). 
A significant reduction in flight test time was projected 
when using the performance modeling approach compared to the 
more conventional stabilized point method. Estimates for 
the Learjet Model 35 aircraft showed a reduction in test 
time of between 22 and 60 percent. In addition, considerably 
more information was obtained from the performance modeling 
approach along with the ability to predict a nearly infinite 
number of cruise and flight trajectory conditions. 



7 . 2 RECOMMENDATIONS 


1. The number of cardinal power settings selected for a program 
should be based on the relative susceptibility of the partic- 
ular aircraft configuration to power effects and the accept- 
able error associated with interpolating between cardinal 
power settings. It is anticipated that between four and eight 
cardinal power settings are adequate for most aircraft with 
significant flight time savings resulting from a lower number 
of settings. 

2. A limited number of stabilized points should be included as 
part of any performance modeling flight test program as a 
check on overall data quality. The baseline aerodynamic 
and engine characteristics should be input to the ITERATE 
program so that stabilized point predictions can be made 
and compared with the actual stabilized point data. 

3. A ground thrust run consisting of approximately 9 stabilized 
points for each engine across the RPM range should be accom- 
plished to define the TSFC correction parameter, n, as part 
of the overall engine model development. The recommended 
thrust run procedure is similar to that accomplished on the 
Lear jet Model 55 aircraft (Appendix F). Due to program con- 
straints with the Model 35, only a five point thrust run was 
accomplished for each engine, which was considered barely 
adequate. 
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4 . 


A flow field survey should be accomplished in the engine 
nacelle/wing root area of an aircraft such as the Lear jet 
Model 35 with an overwing engine mounting to assist in 
understanding power effects on lift and drag characteristics. 
Flow tufting in this area would be an excellent first step. 
The Lear 35 would be an excellent aircraft for this work, 
since the power effects have been identified and documented 
as part of this program. The findings of such an effort 
could directly contribute to optimizing the engine location 
for aft fuselage mounted engine configuration during the 
initial aircraft design. 

5. When selecting instrumentation transducers for a performance 
modeling flight test effort, results of the error analysis 
presented in Section 4.5 should be reviewed to assist in 
defining transducer accuracy. Special attention should be 
given to obtaining state-of-the-art accuracies for body 
accelerations, angle of attack and fuel flow, since these 
parameters were identified as critical during this program. 

6. If the push-pull maneuver is used to complement data obtained 
from accels and decels, the accuracy of the angle of attack 
corrections such as boom bending and angular rate should be 
checked by comparing data from both types of maneuvers across 
the angle of attack range. 

7. Future flight test programs using the performance modeling 
approach should include actual flight trajectory profiles 
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for selected conditions to establish the correlation asso- 
ciated with trajectory predictions. A comparison method 
similar to that used in this program is recommended. If 
acceptable agreement is established, then a wide range of 
flight profiles may be modeled with additional savings in 
flight time. 

8. The areas identified in Chapter 6, Future Work, should be 
pursued in future research programs to extend application 
and definition of the performance modeling concept. These 
areas include 1) comparison of the in-flight engine model 
defined with "Thrust Modeling" to test cell results for 
the same engine (s), 2) expansion of performance modeling 
to include the entire maneuvering flight envelope of an 
aircraft, 3) development of a "real time" integrated per- 
formance flight test capability and 4) application of 
performance modeling to an aircraft with significant aero- 
elastic characteristics and a complex engine/nacelle. 
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APPENDIX A 


SUPPORT ORGANIZATIONS 


Several organizations played a direct role in the accomplishment 
of this program, as outlined in Figure A. 1. A description of each 
organization's contribution to the overall program is presented here. 

The Aeronautics Branch (OFA) in the Flight Support Division (OF) 
at NASA Ames-Dryden had responsibility for funding the development and 
analysis portion of the effort under' NASA Grant NSG 4028. In addition, 
NASA Ames-Dryden provided Edwards AFB on-site facility support for 
calibrations. Mr. Paul Redin and Mr. F. W. Burcham (OFAP) were the 
project technical monitors of this grant. 

The University of Kansas was responsible for overall technical 
development and program management. Professor William G. Schweikhard 
was the principal investigator for the project. Mr. Thomas R. Yechout 
(K.U. Doctor of Engineering Degree Candidate) was the principal research 
assistant/manager for the development and flight test efforts, and 
Mr. Keith B. Braman (K.U. Master of Engineering Degree Candidate) was 
responsible for the overall software area. The K.U. Honeywell 60/66 
computer was used for initial development of the performance modeling 
software . 

Kohlman Systems Research (KSR) , Lawrence, Kansas, under Singer 
Corporation contract, provided the major portion of the computer time 
needed for software development and data analysis. A SEL 32/77 computer 
was used. KSR also provided personnel to assist with data reduction. 
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Figure A. 1: Project Support Organization Chart 







The Gates Learjet Corporation (GLC) , Wichita, Kansas, under Singer 
Corporation contract, provided the test aircraft, instrumentation, and 
flight crew. Mr. Jim Dwyer was the GLC focal point for all flight 
operations during the program. 

The Singer Corporation, Link Division , Binghampton, New York, 
funded the KSR and GLC efforts as part of an overall company program 
to define the flight characteristics of several general aviation air- 
craft for ground simulation applications. Mr. W. Day was the on-site 
Singer representative during the program. 

The Air Force Flight Test Center , Edwards AFB, California and 
the Garrett Turbine Engine Company , Phoenix, Arizona also provided 
essential technical contributions to the overall effort. 
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APPENDIX B 


TRIGONOMETRIC RELATIONSHIPS FOR THRUST AND C.G. CORRECTIONS 

The trigonometric relationships necessary to calculate ^ t ^ rust » 
h r , and in Figure 3.5 will be presented. 

^ Z thrust 



A1 = / 


Ac.g.,/ + Ac.g., 


yl = tan 


-1 


Ac -g-y 

AC. 8 . H 


ZT - known from 
aircraft 
geometry 


t = 90° + A 

J = 180° - x - yl = 90° - X - yl 
z thrust ' ZT - A1 

2 thrusc * 21 -A1 sln(> + Tl) <Ac.g. H > 0) 

If Ac.g. H < 0, then the geometry reduces to 


Z . = ZT + A1 sin(Yl + A) 

thrust _____ 


If Ac. g. , equals zero, ^ t j irust becomes 

Z , = ZT + A1 cosA 

thrust 


Z , = ZT - A1 cosA 

thrust 


(Ac ' g ' H < 


(Ac.g. v < 0) 
( Ac . g . v > 0) 
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XTAIL = H 


tail - * C - g ’H 


ZTAIL = V tail ' AC * 8 *V 


2. = XTAIL cosa + ZTAIL sina 

tail 


4) Ac.r. ->• parallel to V 


Z = H cosa + V . , sina 
tail tail 


Ac.g. Z - 2 tail 

Table B.l presents the distances needed for the above calculations for 
the Lear 35 aircraft. 


Table B.l: Lear 35 Thrust and C.G. Correction Distances 

Distance 


Abbreviation 

(in) 

ZT 

17.985 

XRD 

49.94 

ZRD 

17.11 

H 

tail 

244.712 

v ... 

tail 

80.635 
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APPENDIX C 


SOFTWARE DOCUMENTATION 

C.l INTRODUCTION 

The software development effort was divided into four areas. The 
first was concerned with the simplified representation of the engine 
manufactures prediction deck and development of the thrust run correction 
parameter, n- The second developed the algorithms needed for processing 
quasi steady-state performance data along with the analysis techniques 
for conventional performance maneuvers. The third area developed 
cruise and trajectory modeling techniques. Finally, a large number 
of utilities were written to aide in data analysis and processing 
for the overall program. The combined effort resulted in the develop- 
ment of over 30 programs and over 200 subroutines totaling over 10,000 
lines of code. A summary of the primary program software is presented 
in Table C.l. 
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Table C.l: 

Software Summary 


SECTION 

PROGRAM NAME 

LINES OF CODE 

Engine Model Development 



C.2.1 

F. TRIN 

172 

C.2.2 

F. FUELCA 

116 

C.2.3 

F. CONVR 

311 

C.2.4 

F. BAVR 

154 

C.2.5 

F. EXTRA 

366 

C.2.6 

F. TABLE 

532 


Flight Test Data Reduction 



C.3.1 

START 

1 

1 


C.3.1 

1 

PUSHPULL 

> 1058 


C.3.1. 2 

STAB 



C.3.2 

MFIT 

'1300 


C.3.3 

XPLOT 

'700 

Cruise and 

Trajectory Modeling 




C.4.1 

ITERATE 

5 70 


C.4.2 

MODEL 

■ 


C.4.2.1 

DRAGA 

i 

>-3393 


C.4.2. 2 

J 

THRUST 

1 

Utilities 

C.4.1 

THRUST 1 

145 


C.4.2 

REYNOLDS 

95 
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C .2 ENGINE MODEL DEVELOPMENT 


Figure C.l presents the routines and order of implementation for 
developing the engine prediction deck curves in the simplified form 
required for the thrust modeling technique used in this program. 
Figure C.2 presents the logic flow for the development of the thrust 
run correction parameter q. 
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MANUFACTURER S 
ENGINE DECK 
PREDICTIONS 



Figure C.l: Simplified Engine Deck Development Data Flow 


F. EXTRA 



THRUST RUN 


r • i 

rtDLL 

ENGINE DATA 


* 



VALUES OF 1 
MACH «= 0 

Figure C.2: Data Flow For Developing n curve 
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C.2.1 F. TRIN 


PURPOSE: 


APPROACH 


To 1) provide for manual entry of raw engine prediction deck 
data onto the computer system, 2) apply the corrections for 
temperature and pressure to obtain the corrected form of the 
engine parameters, and 3) write out the initial engine pre- 
diction deck data files. 

The program first prompted the user for the total pressure and 
total temperature for which the predictions were calculated. 

Then all parameter values corresponding to one data point 
were entered by the user, corrected with the applicable equation, 
and written to the output file. This was repeated for each 
data file. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


5 

6 


to 

11 

12 


13 


14 

15 

16 


17 

18 


ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHOR 

COMPUTER 

O/S 

COMPILER 


UNIVERSITY OF KANSAS CENTER FOR RESEARCH INC. 
F.TRIN 

BRAMAH * KEITH 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


I 

I 

I 

I 

I 


REVISIONS 

1 1 -I 

PR# I VER/REV I NAME I DATE 

1 1 I 

I I/O I KEITH BRAMAH I 12/8/82 

j 1 1 


THIS PROGRAM CALCULATES CORRECTED 
THRUST VALUES FROM THE ENGINE PREDICTION 
THRUST DECK INPUT 

CHARACTERS A 
CHARACTER*^ FILENAME 

TYPE A,'***** TO ABORT TYPE 9999 AT FN INPUT ***** 

TYPE 6 

FORMAT!/, '*',5X, 'INPUT THETA; ') 

ACCEPT *, THETA 
TYPE 200, THETA 
CALL CHANGE (THETA, A) 

IF (A. EQ. 'Y' > GO TO 5 

TYPE 11 

1:0 

FORMAT!/, '*',5X, ’ FILE NAME DATA IS TO BE STORED IN J ’ ) 
ACCEPT 12, FILENAME 
FORMAT (A8) 

OPEN (UNIT :5» FILE:FILENAME, USER: ' BRAMAN ’ . 

J.STATUS: 'NEW', FILESIZE :50, FORM: 'FORMATTED ' , 

6BL0CKED: .TRUE. . IOSTATrll, ERR:13) 

IF(Il.EQ.O) GO TO 15 
IF ( I 1 . EQ . 1 ) GO TO 14 
IFdl.GT.15 GO TO 500 

TYPE »,'**** FILENAME ALREADY EXISTS **•*' 

GO TO 10 
TYPE 16 

FORMAT!/, '*'»5X, 'INPUT MACH »; ') 

ACCEPT * , AM 
TYPE 200, AM 
CALL CHANGE (AM, A) 

IF (A. EQ. 'Y'> GO TO 15 
TYPE 18 

FORMAT!/, '♦',5X, 'INPUT TT2; ') 

ACCEPT *, TT2 
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TYPE 200. TT2 
CALL CHANGE < TT2 . A ) 

IFCA.EQ. 'Y'l GO TO 17 

19 TYPE 20 

20 FORMAT C ✓ , '*'.SX, 'INPUT PT2 J *> 

ACCEPT *» PT2 

TYPE 200. PT2 
CALL CHANGE(PT2. A > 

IF (A. EQ. 'Y'> GO TO 19 
SQTHETA : SORT ( TT2^518. 7 ) 

DELT2 : CPT2.-14.7) 

C WRITE TO DATA FILE 

WRITECS. 113)FILENAME 
WRITECS. 105) 

WRITE ( 5 . 100 > AM.TT2.PT2 
WRITECS. 112) 

WRITECS. 110) 

WRITECS. Ill) 

WRITEC5. 112) 

100 FORMAT C1X.3G1S.7) 

29 1:1+1 

30 TYPE 31. I 

31 FORMAT C 5X, ' INPUT FN*,I2.'= ') 
ACCEPT *,FN 

TYPE 200. FN 

IFCFN.EQ. 9999) GO TO IO 
CALL CHANGE C FN. A) 

IFCA.EQ. ' Y' ) GO TO 30 
IFCIFLAG.EO. 1)60 TO SO 

32 TYPE 33.1 

33 FORMATS. 'S'.SX, 'INPUT WF', 12. '= ') 
ACCEPT *. WF 

TYPE 200. WF 

CALL CHANGE CWF.A) 

IF CA.EO. # Y' > GO TO 32 
IFCIFLAG.EO. 1 >GO TO SO 

34 TYPE 35. I 

33 FORMAT 5X. ' INPUT WA'» 12.': ') 
ACCEPT *,UA 
TYPE 200. WA 
CALL CHANGE CWA.A) 

IFCA.EQ. 'Y' > GO TO 34 
IFCIFLAG.EO. 1)G0 TO 50 

36 TYPE 37. I 

37 FORMATC/. ,5X' INPUT RPM' , 12. ’) 
ACCEPT *, RPM 
TYPE 201. RPM 
CALL CHANGE C RPM. A ) 

IFCA.EQ. 'Y' ) GO TO 34 

IFC I FLAG. EO. 1 )G0 TO 50 

START CALL FOR CORRECTED VALUES 

CORRECTED RPM 
50 IFLAGiO 
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CRPM: RPM^SQTHETA 
CALL RAH DRAG 

FRAU = < HA*AH*1 1 16. 4*SQRT ( THETA ) >/32. 174 
CALL GROSS THRUST 


700 

2 


710 


777 


FG: FRAH ♦ FN 

FG0DT2 = FG/DELT2 

CWF : HF/DELT2/SQTHETA 

CHA s < WA*SQTHETA)/DELT2 

TSFC:CUF/FG0DT2 

TYPE 700 

FORMAT <✓. '*',3X» 'LAST CHANCE FOR ANY CHANGES I Y/'N ') 
ACCEPT 2, A 
FORMAT < Al) 

IF( A. EG. 'Y ' )GOTO 710 
GO TO 600 

TYPE ’ THE UALUES ARE I* 

TYPE *. '1 FN: ' , FN 

TYPE *» '2 HF:',HF 

TYPE *. '3 I4A: ' , HA 

TYPE *. >4 RPM: ' , RPM 
TYPE *,'S TSFC: ' » TSFC 
IFLAG: 1 
TYPE 777 

FORMAT t/", '»' » 5X» ' INPUT VARIABLE NUMBER TO BE CHANGED;') 
ACCEPT *,J 

GO TO (30.32,34,36), J 


HRITE DATA FILE 


600 MRITE(5> 150) CRPM, FG0DT2. CHF, CHA, TSFC 
C ISO FORMAT ( 4X, F10 . 2, 2X, F8 . 2, 2X, F8. 2, 2X» F7 . 2, 2X» F6. 4 ) 

150 FORMAT ( 4X, 5G15. 7 > 

GO TO 29 

105 F0RMAT(5X. 'MACH B' , 7X» ' TT2 < DEO R ) ' , 6X» 'PT2< PSIA ) ' ) 

110 FORMAT( 10X, 'CRPM'. 7X» 'FG^DELTA2', 6X» 'CFUEL FLOH'. 5X, 
& 'CAIR FLOH', 9X» ' TSFC ' ) 

111 FORMAT < 25X, 'LBS' , 10X. 'LBS^HR' , 9X, 'LBS^SEC' ) 

112 FORMATt' ') 

200 FORMAT (17X.F10.4) 

201 FORMAT ( 17X, F10 . 2 ) 

500 TYPE *,'***« ERROR IN OPEN 5 ',11 

113 FORMAT< IX, 'FILENAME ',A0> 

STOP 

END 

SUBROUTINE CHANGE(X.A) 

CHARACTERS A 
TYPE 1 

1 FORMATC ✓»’*'» 5X, 'CHANGES? Y/'N: ') 

ACCEPT 2. A 

2 FORMAT (Al) 

RETURN 
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END 

*IFT ABORT EN 
•CATALOG 

CATALOG OH. TRIM U. SO 

SDEFNAHE EN 

SEOJ 

** 
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C.2.2 F. FUELCA 


PURPOSE: 


To investigate the effects of using a power of 6 other than 
one to form corrected fuel flow. The program read F. TRIN 
output files and allowed the user to choose the power of delta 
which was used to form: W. 


>/e~ 6 N 

t 2 t 2 


APPROACH: 

F. TRIN output files retained the values for temperature and pressure 
that were originally entered. These are used by F. TRIN to form 
CWF. Specifically, 


CWF 


W, 


> 7e~ 

c 2 c 


2 


In F . FUELCA, the values of CWF were multiplied by 6 

t 2 

where N is the chosen power of 6 . This resulted in 

r 2 
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C *************************************************************** 

C a 

c * organization: university or Kansas center for research inc. 

C * PROGRAM : F.FUELCA 

C * SUBROUTINE : NONE 

C * AUTHOR : BRAMAH » KEITH 

C * COMPUTER : SEL 32x77 

C * OxS : M.P.X. 1.3 

C * COMPILER : ANSI-77 STANDARD FORTRAN (FORT77) 

C * 

C * REVISIONS 

C * 

1 1 1 1 

PRtt I VERxREV I NAME I DATE I 

x 1 1 1 

I 1X0 I KEITH BRAMAN I 12x2x82 I 
1 1 1 1 

C * 

c *************************************************************** 

C 

C 

C THIS PROGRAM CHANGES THE POWER OF DELTA USED TO 

C CORRECT FUEL FLOW IN THE ENGINE DECK PREDICTION 

C FILES. 

C 

R£AL*4 CWF ( lOO ) , Z 1 ( 1 00 ) . Z2 ( 1 00 ) » Z3 C 1 00 ) . XU < 1 00 ) . Z ( 100 ) 
CHARACTER*8 FILENAME 
CHARACTERS A 
1 TYPE 7 

7 FORMAT < X/ 'S’, 5X» ' INPUT THE FILENAME THE DATA HAS BEEN STORED', 

& ' IN; ') 

ACCEPT 332, FILENAME 

OPEN < UNIT :5» FILE :F ILENAME, USER: * BRAMAN • , STATUS: * OLD ' » 

& FORM: 'FORMATTED' , BLOCKED: . TRUE. , ACCESS: 'SEQUENTAIL' , 

& IOSTAT : 13, ERR: 997 ) 

12 TYPE 9 

9 FORMATtx, '*',5X» 'OUTPUT FILENAME TO STORE OUTPUT DATA IN ! ') 

ACCEPT 332, FILENAME 

OPEN tUNIT:6,FILE:FILENAME. USER: 'BRAMAN '.STATUS: 'NEW', 

& FILESIZE:3, FORM: 'FORMATTED' » BLOCKED: . TRUE. . IOSTAT: IS, 

& ERR: 13. CLEAR:. TRUE. ) 

13 IF C 15 . EQ . 0 ) GO TO 3 

IF( 15. GT. 1 ) GO TO 995 
IF(I5.EQ.l) TYPE 14)G0 TO 12 

14 FORMATtx, 5X. '***• FILE NAME ALREADY EXISTS ****') 

3 OPENtUNIT: 'UT' > 

READ INPUT FILE AS STORED BY PROGRAM F.TRIN 

READ(5. 175) 

RE AD ( 5, 175) 

READ ( 5 , 110) AM , B, C 
READtS, 175) 

READ ( 5, 175) 

READ<5. 175) 


C * 
C * 
C * 
C * 
C * 
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READ!5. 175) 

DO 1=1.100 

READ (5.150. END: IS > XU ( I ) . Z ( I > . CUE ( X > » Z2( I ) . Z3( I ) 

END DO 

15 TYPE «. 'FINISHED READ' 

NUAL: 1-1 

TYPE ' INPUT DELTA POWER > ' 

ACCEPT *. APOWER 

TYPE *. ' INPUT THETA POWER > ' 

ACCEPT *.TP 
TP = 0 . 5 

THETAT2=SQRT(B^518.7) 

DELTAT2=C/14.7 

DEL TAX: <DELTAT2^< DELTAT2** APOWER) ) 

DO 1=1. NUAL 

Z1 ( I ) =CWF ( I > * ( DELTAX ) « ( THET AT2x ( ( B^5 10 . 7 ) *«TP ) ) 

23(1 ) :Z1 ( I )sZ ( I ) 

END DO 

WRITE OUTPUT UALUES OF FIT 

WRITE ( ' UT ' . 444 ) FILENAME . APOWER 
WRITE ( 'UT', 105) 

WRITE ( 'UT ' . 1 10) AH, B, C 
WRITE ( 'UT ',115) 

WRITE('UT', 120) 

WRITE! 'UT' , 125) 

WRITE! 'UT', 115) 

DO 70 1=1, NUAL 

70 WRITE! 'UT'. 150 )XU( I ) , Z ( I ) , Z1 ( I > , Z2< I ) , 23! I ) 

WRITE NEW DATA TO FILE 

WR I TE ! 6 . 444 ) F I LENAHE. APOWER 
WRITE ( 6, 105) 

WRITE (6,1 1 0) AH, B, C 
URITE!6. 115) 

WRITE (6, 120) 

WRITE ( 6 , 125) 

WRITE (6, 115) 

DO 00 1=1. NUAL 

00 WRITE ( 6 , 150 ) XU! I).Z(I),Z1(I), Z2( I ) , Z3( I ) 

CLOSE ( UNIT : 5 ) 

CLOSE (UNIT = 6) 

GO TO t 

150 FORMAT (4X,5G15.7) 

105 F0RMAT(5X. 'MACH N ' , 7X. 'TT2! DEG R) ' » 6X» 'PTZ(PSIA) ' ) 

110 FORMAT! IX, 3G15.7) 

120 FORMAT! 10X. 'CRPM'. 7X, 'FG/'DELTA2 ' . 6X. ' CFUEL FLOW ' . SX» 
fc 'CAIR FLOW'. 4X, ' TSFC^THET A2 ' ) 

125 FORMAT !25X, 'LBS', 10X, 'LBS /HR' , 9X, 'LBS/SEC' > 

175 FORMAT!' '.A) 

115 FORMAT!' ') 

200 FORMAT! 17X.F10. 4) 

332 FORMAT! AS) 
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201 FORMATt 17X,F10. 2) 

444 FORMATS FILENAME = ’.A8,2X»’ MF DELTA-T2 s*.F3.2) 
997 TYPE *,’***• ERROR IN OPEN 5 '.13 
995 TYPE ft,’**** ERROR IN OPEN 6 ',15 
STOP 
END 
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C.2.3 F. CONVR 


PURPOSE: 


APPROACH 


To interpolate the engine prediction deck data for corrected 
thrust, airflow, and fuel flow at a constant Mach number and 
altitude and to determine the appropriate curve value at 
even corrected RPM. increments of 500 RPM using a cubic spline 
routine. 

After reading the input file (output from F. TRIN), the program 
created a new corrected RPM array which consisted of all even 
multiples of 500 RPM within the total RPM range of the input 
file. A subroutine then interpolated gross thrust, fuel flow, 
and air flow to each value in the new RPM array, and the 
output file was written. 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C THIS PROGRAM INPUTS THRUST DECK DATA TO BE BROKEN OUT AT EUEN 
C BREAK POINTS WITH A CUBIC SPLINE ROUTINE 
C 

DIMENSION X(IOO), Y( 100 ) . 2 C50 > . X2 ( SO) . DY( 150 ) 

DIMENSION Y1 C 100 ) , Y2C 100 > , Y3 C 100 > . Z1 < 100 ) . Z2 < 100 >.23(100) 
DIMENSION XU( 100) . YU( 100 > , Y1U( 100 > . Y2U( 100) . Y3U< 100) 
CHARACTER*8 FILENAME 
CHARACTERS A 
1 TYPE 7 

7 FORMAT ( /» 'S'. 5X. * INPUT THE FILENAME THE DATA HAS BEEN STORED*. 
& ' IN; *> 

ACCEPT 332. FILENAME 

OPEN < UNIT = 5. FILE ^FILENAME. USER: ' BRAMAN * . STATUS: * OLD ' » 

& FORM: 'FORMATTED ' . BLOCKED: . TRUE. . ACCESS: ' SEOUENTAIL * . 

& IOSTAT : 13. ERR: 997 > 

12 TYPE 9 

9 FORMAT C /. **'.5X. 'OUTPUT FILENAME TO STORE OUTPUT DATA IN .' ') 

ACCEPT 332. FILENAME 

0PEN(UNIT:6.FILE:FILENAME. USER: 'BRAMAN*. STATUS: 'NEW' . 
t FILESIZE: 5. FORM: 'FORMATTED' . BLOCKED: . TRUE. . IOSTAT: 15. 

& ERR: 13 > 

13 IF ( 15 . EQ . 0 ) GO TO 3 

IF ( 15 . GT . 1> GO TO 995 
IF(IS.EO.l) TYPE 14 J GO TO 12 

14 F0RMAT(/»5X» ***** FILE NAME ALREADY EXISTS »****> 

3 OPENtUNIT: *UT ' > 

READ INPUT FILE AS STORED BY PROGRAM F.TRIN 

READ ( 5 > 175) 

READ( 5. 175) 

READ ( 5. 110) AM. B. C 
READ ( 5 . 175 ) 

READ ( 5. 175) 


ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHOR 

COMPUTER 

0/S 

COMPILER 


UNIUERSITY OF KANSAS CENTER FOR RESEARCH 
F. CONOR 
WACSUB / MAC 
BRAMAN . KEITH 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


INC. 


REVISIONS 


PRtt I UER/REU 


NAME 

KEITH BRAMAN 


DATE 


1/0 


I 12/2/82 I 
-I 1 
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READ ( 5 . 175) 

READC5. 175) 

READ <5. 150.END=15)CXCI).YC1),Y1(X).Y2CI),Y3CI),I=1. 100) 
TYPE *. 'FINISHED READ' 

15 NUAL=I-1 

THE FOLLOWING LOOP 'FLIPS' THE DATA SO THAT THE 
REST OF THE PROGRAM CAN COPE WITH THE NEW 
UPSIDE-DOWN FORMAT 

DO 17 1=1/ NUAL 

XC I ) =XUCNUAL-C 1-1 ) ) 

Y< I ) =YUCNUAL-C 1-1 ) ) 

Y1 1 1 ) =Y1UCNUAL- ( 1-1 ) ) 

Y2( I ) =Y2UCNUAL-( 1-1 ) ) 

Y3 ( I ) = Y3U t NUAL-C 1-1 > ) 

CONTINUE 


CALC EUEN BREAK POINTS BEGINNING AT THE SMALLEST UALUE OF 
X(I) AND ENDING AT THE HIGHEST UALUE OF X<I) 

XX= ANINT ( X(l)/1000. ) 

XX=XX*1000. 

e IFCXX.LT.XCI) >THEN 
XX = XX«-500. 

GO TO 8 
END IF 

30 DO 40 1=1.50 
XZ< I ) sXX 
XX=XX+500. 00000 
IF ( X( NUAL ) . LT . XX ) GO TO 41 

40 CONTINUE 

41 NN=I 


PRINT OUT BREAK POINT AND X UALUES 


CALL CUBIC SPLIN ROUTINE FOR ALL CONDITIONS 

CALL WACSUBCX. Y.Z.DY.X2.NN. IERR.NUAL) 
CALL WACSUBCX. Yl. 21. DY.X2.NN. IERR.NUAL) 
CALL WACSUBCX. Y2. 22. DY.X2.NN. IERR.NUAL) 
CALL WACSUBCX. Y3.Z3.DY.X2.NN. IERR.NUAL) 

WRITE OUTPUT UALUES OF FIT 

WRITEC 'UT'.444)FILENAME 
WRITEC 'UT'. 105) 

WRITEC 'UT'. 110) AM, B.C 
WRITEC 'UT', 115) 

WRITEC 'UT', 120) 

WRITEC 'UT’, 125) 

WRITEC 'UT',115) 
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DO 70 1:1. NN 

70 WRITE! *UT ' . 1S0)X2 (I)>2(I)>Z1U)>Z2(I)> Z3! 1 1 
WRITE NEW DAT ft TO FILE 


WRITE ! 6, 444 > FILENAME 
WRITE ! 6, 105) 

WR I TE ! 6* 110)AM,B,C 
WR I TE ( 6 , 115) 

WRITE ( S , 120) 

WRITE!6» 125) 

WRITE ( 6 < 1 15 ) 

DO 80 I : 1 • NN 

80 WR I TE ( S. 150) X2 ! I ) . 2 ! I ) . 21 < I ) * Z2 < I ) * Z3 < I ) 

CLOSE ( UNIT :5> ' 

CLOSE ( UNIT :6 > 

GO TO 1 

150 F0RMAT!4X,F10.2, 2X. F8 . 2 , 2X, F8 . 2, 2X, F7 , 2 / 2X, F6 . 4 ) 

150 FORMAT (4X/5G15.7) 

105 F0RMAT!5X, 'MACH * * . 7X. ' TT2 ! DEG R) ' , 6X» 'PT2(PSIA) ' ) 

110 FORMAT (1X/3G15.7) 

120 FORMAT< 10X. 'CRPM' » 7X, ' FG/DELTA2 ' , 6X, ’CFUEL FLOW' , 5X. 

* *CAIR FLOW*, 4X. 'TSFC/THETA2' ) 

125 FORMAT !25X, 'LBS'» 10X# 'LBS/HR' » 9X, ' LBS/SEC ' ) 

175 FORMAT ! ' '.A) 

115 FORMAT!' ') 

200 FORMAT ( 17X, F10 . 4 ) 

332 FORMAT (AB) 

201 FORMAT I17X.F10.Z) 

444 FORMAT!' FILENAME = '/BA) 

997 TYPE *,'**«» ERROR IN OPEN 5 ' / 13 
995 TYPE *,'**«* ERROR IN OPEN 6 '»I5 
STOP 
END 

SUBROUTINE WACSUB!X» Y, Z/ DY, X2/ X. IERR/NUAL) 
COMMON/ORDER/ I DUM ! 4 ) r NUAL 
DOUBLE PRECISION AUGXL. AUGYL. FACTOR 
DIMENSION H!150)/X!l)/X2!l). Y!1).DY!1) 


SCALE THE X DATA SO THAT THE X'S AND Y'S ARE OF THE SAME MAGNITUDE 


AUGXLiO. 

AVGYLsO. 

DO 10 1:1, NUAL 
AUGXL: AUGXL+ABS ! X ! I ) ) 

10 AUGYL: AUGYL +■ A BS !Y! I ) > 

A AUGXL: AUGXL/ NUAL 
AUGYL: AUGYL/NUAL 
F ACTOR: AUGXL/AUGYL 
DO 20 1:1, NUAL 
20 X!I):X!I)/F ACTOR 

DO 30 I : 1 / X 
30 XZ! I ) :X2 ( I ) /F ACTOR 

CALL WAC(NUAL,X, Y. K, X2, Z, DY, H, 0, 0, IERR) 
IF ! IERR . EG . 0 > GO TO 50 
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K:NUAL 
DO 40 1:1. K 
40 X2 ( X ) =X< I ) 

SCALE THE X DATA BACK TO ITS ORIGINAL HAGNITUDE 

SO DO 60 1:1. NUAL 
60 X(1):X(1 >*FACTOR 
DO 70 1:1. K 
70 X2(I):X2(I)*FACT0R 
RETURN 
END 

SUBROUTINE MAC CM. XJ. YJ. N. XI. F, G. H. IFLAG. ISAUE. IERR) 

♦♦•STABILITY ANALYSIS*** 
CALLED BY STAB 
NO CALLS 


(1) 

THIS SUBR (WEIGHTED ANGLE CUBIC) INTERPOLATES THE INPUT FUNCTION YJ 
GIUEN AT THE N STATIONS XJ TO THE N OUTPUT STATIONS XI. F CONTAINS 
THE FUNCTION, G ITS DERIU. AND H ITS INTEGRAL. THE METHOD IS CUBIC 
THRU TWO POINTS WITH THE DERIUS GIUEN BY WEIGHTING THE ST LINE 
ANGLES. NOT SLOPES. W IS THE WEIGHT FACTOR. 

REFX TAPS PROGRAM MDC J72SS ( CONTRACT* N00024-75-C-720S ) 


IMPLICIT R£AL*8 (A-H , 0-S. U-Z) 

DIMENSION XJ< 1 >, Y J( 1 >, XI Cl>,FCi),G(l).H(l).A( 150) .8(150), 
SC ( 150) . D ( 150) 

DATA ZO'O. ODO^. Z2/2.0D0/, ZS/'S-'ODO.'. 24^4 . ODO^. 26^6 . ODO^ 
DATA ZO^O.O Z2'2. 0 Z3'3.0 ✓ , Z4-'4.0 ^.Z6^6.0 ✓ 


Ml :M-1 
M2:M-2 
NlsN-1 

(3) 

* STORE INTERVAL SIZES IN H AND ST LINE ANGLES IN F 

DO 10 J: 1 » Ml 
H< J):XJ( M)-XJ( J) 

IF < H ( J ) .EQ. O.) 60 TO 20 
U1 :YJ( J+i >-YJ( J) 

C F ( J ) : DATAN2(U1»H( J) 

F(J)= ATAN2(U1,H(J> ) 

C D( J ) : DSORT ( H(J)*H(J) -f U1*U1) 

D< J ) : SORT ( H< J )*H t J ) ♦ V1*V1) 

10 CONTINUE 
GO TO 40 

C 20 WRITE (6, 30 ) J. ( XJ < I ) , YJ ( I ) , I : 1 , M) 

C 30 FORMAT < 1H0. 38H***ERR0R IN DATA GIUEN TO ROUTINE WAC.. 

C 135H INTERVAL SIZE IN X IS ZERO AT THE .I3.9HTH POINT. , 

C Z/. (2E16.5)) 

C M : J-l 
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HI s M-l 
M2 = M-2 
20 I ERR a 1 

DO 11 I = 1 « M 
11 CONTINUE 
RETURN 
40 CONTINUE 

« NOW STORE G VALUES AND PUT INPUT UALUES INTO F (FOR CONVENIENCE) 
DO 50 J a 2» HI 

VI : (D(J)«F(J-1> D(J-1)«F(J) > ✓ ( D(J) D(J-l) ) 

C 6(J)s DTAN(Vl) 

G ( J ) s TANCVl) 

F(J-l) : YJ(J-l) 

SO CONTINUE 

F < Ml ) a YJ(M1) 

F(M ) = Y J < M ) 

C (5) 

Ca NOW FIND CONSTS AND HOLD INTEGRAL AT J STATIONS IN YJ. FIRST AND 
Ca LAST ARE EXCEPTIONAL (QUADRATIC). 

C 

IF ( IFLAG . EQ. 0) GO TO GO 

Ca FORCE FIRST POINT SLOPE TO ZERO IF IFLAG .NE. 0 
G ( 1 ) : ZO 
J1 a 1 
GO TO 70 
60 J1 a 2 
A ( 1 ) aZO 

Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

B(l)a(F(l) -F (2)+G(2)*H(l) )/’(H(l )aH( l ) ) 
Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa* 

C(1)=(Z2*(F(2 >-F ( 1 ) >-G(2)*H(l>)XH(l> 

D(l)aF(l) 

70 A < Ml ) a ZO 

B(Ml)=(F(M)-F(Ml)-G(Ml)aH(Ml))/(H(Ml)aH(Ml) ) 

C (Ml ) =G (Ml ) 

D(H1 >aF(Hi> 

D(M):F(M) 

DO 80 Ja J1 . M2 

A( J)a (H( J)a(G( J*l)*G( J) >-Z2*(F(J-H >-F( J) > )^(H(J)aa3) 
B(J)a(Z3a(F(J*i )-F( J) )-H( J)a(G(J*l )-*-Z2*G( J) ) >x(H(J)*H( J) > 

C( J) aG< J) 

D ( J ) aF ( J ) 

80 CONTINUE 

C (G) 

Ca NOW CALC INTEGRAL .( SEE (5)) 

C 

YJ ( 1 ) aZO 

YJ(2)=YJ( 1 )4H( 1 )a(F( 1 )+Z2aF(2)-G(2)aH( 1)SZ2)/Z3 
DO 90 Ja 3. Ml 

YJ( J)aYJ(J-l)+H( J-l >a(F(J-l)*F( J)*H( J-l)a(G( J-l)-G(J) )'Z6)^Z2 
90 CONTINUE 

YJ(H)aYJ(Nl )>H(M1 ) a ( Z2*F (Ml > «T( M ) *0 ( Ml ) aH(Ml )/Z2 >sZ3 
C (7) 
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C* DONE. NON FOR FINAL INTERP VALUES 
C 

1=0 
J = 2 

100 I=I*1 

110 IF (XI ( I ) . LE. XJC J) ) GO TO 120 
IF (J.EQ.H) GO TO L20 
J = J*1 
GO TO 110 

120 ZI=XICI)-XJ(J-l> 

212 = 21*21 
213=212*21 
214=213*21 
UA=A(J— 1) 

UB=B< J-l) 

UC=C( J-l) 

UD=D( J-l) 

G< I ) =Z3*VA*ZI2*Z2*UB*ZI*UC 
F < I ) =UA*ZI3*UB*ZI2*VC*2I*VD 

H(I )=UA*ZI4/Z4*UB*ZI3/Z3*UC*ZI2<'Z2*UD*ZI*YJ( J-l) 
IF (I.LT.N)GO TO 100 
C 

C** RESTORE DESTROYED YJ UALUES 
C 

IF (ISAUE .EQ. 1) GO TO 140 
DO 130 J = 1 * H 
Y J < J ) =D( J ) 

130 CONTINUE 
RETURN 
140 CONTINUE 

C* DUMP ANSWERS BACK INTO YJ ARRAY IF ISAUE = l 
DO 150 J : 1 » N 
Y J < J ) = F ( J ) 

150 CONTINUE 
RETURN 
END 
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C.2.4 F. BAVR 


PURPOSE : 

To average engine prediction deck data across the altitude 
range for each constant Mach and corrected RPM condition and 
to define the table look-up files for the engine deck predictions 
within the engine operating limits. 


APPROACH : 

Data for several altitudes, but one Mach, were read into a 
series of two dimentional arrays (one for each parameter). 
All data corresponding to each constant corrected RPM was 
averaged together, resulting in a series of one dimentional 
arrays which represented the corrected deck predictions for 
one Mach number . 
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ORGANIZATION 

PROGRAH 

SUBROUTINE 

AUTHOR 

COMPUTER 

O/S 

COMPILER 


UNIUERSITY OF KANSAS CENTER FOR RESEARCH INC. 

F .BAUR 

NONE 

BRAMAN » KEITH 
SEL 32/7? 

M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN CF0RT77) 


I 

I 

I 

I 

I 


REVISIONS 

1 I 1 1 

PRtt I UER/REU I NAME I DATE I 

1 1 1 1 

I I/O I KEITH BRAMAN I 3/21/83 I 
1 1 1 1 




DIMENSION RPM ( 40. 19),FGC40, 18).WFC40. 18).WAC40. 18), 

1 TSFC C 40, 18), ArtC 18 > , NUAl ( 18) , K < 18),KT< 18), 

& TFG ( 40 > , TWF ( 40 ) , TWA ( 40 ) , TTSFC ( 40 ) , MC ( 40 ) , 

& AFG ( 40 ) , AUF ( 40 ) . ANA ( 40 ) , ATSFC ( 40 ) , ARPM ( 40 ) 

CHARACTER *8 FILENAME 

THIS LOOP READS THE FILES AND PUSHES THEM UP 
WITHIN THEMSELUES SO THAT ALL PARAMETERS 
CORRESPONDING TO THE SAME RPM HAVE THE SAME 
FIRST SUBSCRIPT. 

20 CONTINUE 
MC:0 

TFG = TWF : TWA i TTSFC = 0. 0 

TYPE*. 'HOW MANY FILES WILL BE READ?' 

ACCEPT*. NNN 

TYPE*. ' **** ENTER FILES IN ORDER OF INCREASING ALTITUDE ***' 

TYPE*, ' ' 

DO 10 Jsl.NNN 
TYPE 101 

101 FORMAT t // , 5X, 'FILENAME: ' ) 

ACCEPT 200. FILENAME 

OPEN ( UNIT: 5. FILE: FILENAME. USER: ' BRAMAN ' . STATUS: 'OLD*. 

& FORM: 'FORMATTED' . BLOCKEDs . TRUE .» ACCESS: ’ SEQUENTIAL ' » 

ft I OS TAT : 1 3, ERR: 300 ) 

READ (5, 250) 

READC 5. 250) 

READ< 5. 250) 

READ( 5, 220) AMCJ),0,R 
READC 5. 250 ) 

READ (5. 250) 

READC 5 » 250 ) 

READ C 5 . 230 . END: 50 ) C RPMC I . J ) . FO C I . J ) , WF C I . J ) , UA ( I , J ) . 
ft TSFCCI. J). 1:1. 100 ) 
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30 NUAL < J > = 1-1 

GOTO 350 
200 FORMAT <A8) 

220 FORMAT C iX» 3G15. 7) 

230 F ORMAT (4X.5G1S. 7) 

250 FORMAT (» *,A> 

300 TYPE*» '*****ERROR IN OPEN 3*****', 13 
350 CONTINUE 

CLOSE ( UNIT = 5 ) 

C 

K ( J ) = AN I NT ( (RPH 1 1 , J ) -4000) >'500) 

KT< J) =40-(K< J)+NUAL< J) ) 

DO 1=0/ NUAL< J)-l 

FG C NUAL (J)-I>K(J)»J)=FGC NUAL( J ) -I / J ) 

WF < NUAL ( J > - 1 ♦* < J > / J > =UF < NUAL < J ) - 1 / J ) 

WA( NUAL U)'HK(J)/I) =UA< NUAL< J ) - I / 3 ) 

TSFC C NUAL {J)-I*'K(J)/J)=TSFC( NUAL< J ) - I / J ) 

END DO 
DO I : 1 / K ( J ) 

FGC I / J ) = UF ( I / J ) =WA ( I / J > = TSFC C I . J ) =0 . O 

END DO 

DO I :K ( J > +NUAL C J ) *-1 » 40 

FG(I. J)=WFtI, J)=WA(I, J)=TSFC(I. J)=0.0 

END DO 

10 CONTINUE 
C 
C 

C THE FOLLOWING NESTED LOOP SUMS THE UARIOUS 
C PARAMETERS AND DIUIDES BY THE NUMBER OF 

C POINTS AT EACH ALTITUDE TO CREATE THE 

C AUERAGES. 

C 

MC = 0 

DO 1:1/40 

DO J : 1 / NNN 

IF ( FG(I» JKNE.O.O) MC< I ) =MC< I ) + l 
TFG(I)=TFG(I)+FG<I, J) 

TUF< I >=TWF( I J+WFC I. J> 

TWA ( I > =TUA( I ) *WA ( I / J ) 

TTSFC«I)=TTSFC<I ) +TSF C < I » J ) 

END DO 

AF6<I)=TFG<I)/'MC(I> 

AUF ( I ) sTWF ( I ) /'MC ( I ) 

AWAtI>=TWA<I)/'MC<I> J 

ATSFCCI) =AWF (I)^AFGCI) 

END DO 
DO 1=1/40 

IF<TFGCI).NE.O. 0 ) GOTO 405 
END DO 
405 Ml: I 

00 I :M1 / 40 

IF(TFG< I) .EO.O.OJGOTO 410 
END DO 

410 M2= I- 1 , 

C 
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DO I si .40 

ARPH CI)s 4000 . ♦ ( I— 1 ) *300 . 

END DO 
C 

C THE FOLLOWING STATEMENTS ASK THE USER FOR A 

C FILE NAME AND CREATES THAT FILE. THE AUERAGED 

C DATA IS STORED IN THE FILE. 

C 

245 TYPE 251 > AM(NNN) 

251 FORMAT ( 5X. 'TYPE FILE NAME FOR MACH s',F5.3»' ') 

ACCEPT 1000, FILENAME 

OPENCUNITs 6 > FILE: FILENAME. USERs ' BRAMAH' » STATUS: 'NEW' * 
& FILESIZE:5,F0RM:'F0RMATTED', BLOCKED:. TRUE. , 

& IOSTATsIS, ERR =301 ) 

301 IF(I5.EQ.O) GOT 0 700 
IF ( IS . GT . 1 ) GOTO 995 
IFI15.EQ. 1>TYPE 305JG0T0 245 
305 FORMAT <✓, 5X, ' *****FILENAME ALREADY EXISTS*****' ) 

700 CONTINUE 

WRITE <6. 601 ) FILENAME 
WRITEC6. 610) 

WRITE (6. 620 > 

WRITE <6. 621 ) AMMNNJ.Q.R 
WRITE ( 6 , 630) 

WRITE (6/ 640) 

WRITE (6.610) 

DO 750 I sMl , M2 

WRITE <6. 650 ) ARPM ( I ) , AFG< I ) , AWF (I). AWA <13, ATSFC < I ) 
750 CONTINUE 

CLOSE < UNIT :6 ) 

GOTO 20 

601 F0RMAT<4X» ' FILENAME: ', 8A) 

610 FORMAT < ' ’) 

620 F0RMAT<4X. 'MACH NUMBER:') 

621 FORMAT < IX, 3G1 5.7) 

630 FORMAT < 10X, 'CRPM',7X, ' FG/DELTAZ ' , 6X, 'CFUELFLOW' * 7X. 

& ' CA IRFLOW ' , 7X> ' TSFC/THETAZ ' ) 

640 FORMAT <25X. 'LBS', 10X, 'LBS/'HR ' , 9X. 'LBS^SEC' ) 

650 FORMAT (4X/5G15.7) 

995 TYPE*, 'ERROR IN OPEN 6', 15 
1000 FORMAT (AG) 

1005 CONTINUE 
STOP 
END 
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C.2.5 F. EXTRA 


PURPOSE : 

To provide consistant extrapolation of each constant Mach 
engine prediction deck curve outside the normal engine operating 
envelope so that realistic interpolations could be accomplished 
between Mach numbers for conditions that were close to the 
limits of the engine envelope. Using this program, the table 
look-up files created with program F. BAVR were extended to 
the lowest and highest corrected RPM values anticipated. 


APPROACH : 

First, the engine prediction deck curve corresponding to the 
lowest Mach was extrapolated to the lower end of the desired 
RPM range and the high Mach curve to the upper end. Then, 
using a linearly extended difference between curves, each of 
the other curves was extrapolated to the limits. 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* ORGANIZATION 
« PROGRAM 

* SUBROUTINE 
« AUTHOR 

* COMPUTER 

* 0/S 

* COMPILER 


UNIUERSI TY OF KANSAS CENTER FOR RESEARCH INC. 
F. EXTRA 

LINEX / ORTHPY1 
BRAMAN , KEITH 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


* 

* 


* 

* 

* 


REVISIONS 


PR« I VER/REV 


I/O 


NAME 

KEITH BRAMAN 


DATE 


I 2/22/83 
-I 


* 


THE FOLLOWING CODE READS A NUMBER OF ENGINE 
PERFORMANCE DATA FILES UHICH HAVE BEEN CORRECTED 
FOR ALTITUDE EFFECTS AND AUERAGED. THE PARAMETERS 
CORRESPONDING TO THE LOWEST MACH NUMBER ARE 
EXTRAPOLATED AT THE LOWER END TO 4000 RPMJ THOSE 
CORRESPONDING TO THE HIGHEST MACH NUMBER ARE 
EXTRAPOLATED AT THE UPPER END TO 23500 RPM. 

USING A LINEARLY EXTENDED DIFFERENCE BETWEEN 
MACH CURUES, THE REST OF THE DATA IS EXTRAPOLATED 
BASED ON THE UPPER AND LOWER CURVES. 

DIMENSION RPM (40, 18).FG(40. 18).WF(40. 18 >> HA (40, 18). 
& TSFCC40. 18 ) . AM C 18>.K(18).KT(18). XVAL ( 40 ) . 

& YUAL 1(40), YVAL2 ( 40 > , YUAL3 ( 40 ) , YUAL4 < 40 ) . 

& M(4),X1( 30) , Z1 (30 ) , Z2 ( 30 ) , Z3 ( 30 ) > Z4 ( 30) , 

& P ( 40 » 12), NVAL ( 18 ) 

CHARACTER*8 FILENAME 
IFLAG:0 


THIS LOOP READS THE FILES AND PUSHES THEM UP 
WITHIN THEMSELVES SO THAT ALL PARAMETERS 
CORRESPONDING TO THE SAME RPM HAVE THE SAME 
FIRST SUBSCRIPT. 


TYPE*, 'HOW MANY FILES WILL BE READ?' 

ACCEPT*, NNN 

TYPE*,' ***• ENTER FILES IN ORDER OF INCREASING MACH **•*' 

TYPE*, ' ' 

DO 10 J s 1 , NNN 
TYPE 101 

101 FORMAT!//. 5X, 'FILENAME:') 

ACCEPT 200. FILENAME 

OPEN ( UN I Ts 5, FILES FILENAME. USERs 'BRAMAN' , STATUSs 'OLD', 
t FORMS 'FORMATTED '.BLOCKEDs. TRUE. . ACCESSs ' SEQUENTIAL ' » 

& I0STATsI3» ERR s 300) 
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READC 3/ 250) 

READ (5/ 250) 

READ< 5. 250) 

READ( 5. 220) AMCJ).Q,R 
READ ( 5 • 250 > 

READCS. 250) 

READ < 5 , 250) 

READ (5. 230. END: 50) ( RPM ( I.J).FG(I.J). MF < I . J ) . MAC I . I) . 

t tsfcci.jj. 1 = 1.100 > 

50 NUAL < J ) 1 1-1 

DO 1:1.NUAL(J> 

TSFCCI. J):WFCI. JD.'FGCI. J) 

END DO 
GOTO 350 
200 FORMAT ( A8 ) 

220 FORMAT (1X.3G15.7) 

230 FORMAT (4X» 5G15.7) 

250 FORMAT < ' ' . A) 

300 TYPE*. '*****ERROR IN OPEN 5*****'/ 13 
350 CONTINUE 

CLOSE ( UNIT = 5 ) 

C 

K ( J ) : AN INT ( CRPMC1, J ) -4000 ) x500 ) 

XT < J ) r 40- t K ( J ) +NUAL ( J ) ) 

DO 1:0/ NUAL ( J ) -1 

FG<NUALCJ)-I*KtJ)/J):FG( NUAL (J)-I»J) 

WF C NUAL <J)-I+KCJ).J) :WF C NUAL ( 3 ) -I / J ) 

W A < NUAL (J)-I+K(J),J) :WA < NUAL < J ) -I » J ) 

TSFC C NUAL ( J ) -I ♦K C J > z J ) : TSFC ( NUAL < J ) - 1 . J ) 

END DO 
DO I:1/K(J) 

FG < I . J ) : WF C I . J > :WA ( I . J ) :TSFC ( I > J ) =0 
END DO 
DO 1:1/40 

RPM< I/J): 3500+500*1 
END DO 

10 CONTINUE 
C 

C NON THE FIRST AND LAST FILES ARE EXTRAPOLATED. 

C SPECIAL ARRAYS ARE SET UP FOR DATA TRANSFER 

C TO SUBROUTINE 0RTHPY1 . 

C 

ND: ( NUAL ( NNN )S2) 

NE :KT < NNN) 

KE:NUAL C NNN ) -ND+KCNNN) 

KX:KE+ND 
JE:NNN 
DO 1:1 .NE 

XI ( I > : RPM( 40-KT ( NNN > ♦! » NNN ) 

END DO 

TYPE*. 'WHAT ORDER FIT FOR UPPER END OF THE FOLLOWING CURUES) ' 
500 CONTINUE 

TYPE*. ’ M FOR FG:?* 

ACCEPT*. MCI) 

TYPE*. ' M FOR WF:?' 
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noon nnnn 


ACCEPT*. H(2> 

TYPE*.' M FOR HA:?' 

ACCEPT*. M(3> 

TYPE*. ' M FOR TSFC:?' 

ACCEPT*. 11(4) 

00 1:1. NO 

XUAL( I ) :RPM(KE«-I. JE) 

YUAL1 ( I ) :FG( KE+I. JE) 

YUAL2 ( I ) :UF ( KE+I . JE ) 

YUAL3( I ) :WA(KE+I. JE) 

YUAL4( I ) : TSFC (KE+I. JE) 

END DO 

CALL ORTHPYt ( NO. XUAL. YUAL1 . NE. XI. Zt . H( 1 ) . P) 

CALL 0RTHPY1 ( NO. XUAL. YUAL2. NE. XI . Z2. H( 2) . P) 

CALL 0RTHPY1 ( NO. XUAL . YUAL3. NE. XI . 23. h< 3) , P) 

CALL ORTHPYi ( ND. XUAL. YUAL4. NE. XI , 24. M( 4 ) . P ) 

DO 1:1. NE 

FG(KX+I.JE):21(1) 

WF (KX+I.JE) :Z2 ( I ) 

M»(KX+I. JE) :23( I ) 

TSF C ( KX+ 1 . JE > : 24 ( I ) 

END DO 

IF ( I FLAG . EQ . 10 ) GOTO 600 
IFLAG: 10 
ND:(NUAL(1)^2) 

NE:K(1> 

KE:NE 
KX:0 
JE: 1 

DO 1:1. NE 

XI ( I ) : RPM ( I . 1) 

END DO 

TYPE*. 'WHAT ORDER FIT FOR LOWER END OF THE FOLLOWING CURUES) ' 
GOTO 500 
600 CONTINUE 
C 

CALL LINEX (FG.K.KT. NNN ) 

CALL LINEX(WF.K.KT.NNN) 

CALL LINEX ( WA» K. KT» NNN ) 

CALL LINEX ( TSFC . K. XT » NNN ) 

THIS LOOP CREATES THE TSFC EXTRAPOLATIONS 
FROM FG AND WF. 

DO 1:1. NNN 

DO J: 1 . 40 

TSFC ( J . I):WF(J, I)xFG(J.I) 

END DO 
END DO 

THIS LOOP CREATES A DATA FILE FOR EACH 
MACH NUMBER. 

DO 1010 J : 1 . NNN 
243 TYPE 25 1 . AM ( J ) 
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251 FORMAT 5X» 'TYPE FILE NAME FOR MACH :'.F5,3. ' ') 

ACCEPT 1000. FILENAME 

OPE N< UNIT = 6. FILE :FILENAME.USER= 'BRAMAH' » STATUS: 'HEM’ . 
t F ILESI ZE :3> FORM: ' FORMATTED ' . BLOCKED: . TRUE . . 

t . IOSTAT : 15 » ERR: 301 ) 

301 IF(I5.EQ.0>G0T0 700 

IF(IS.GT.l) GOTO 995 
IF( 15. EQ. 1 >TYPE 305JG0T0 245 
305 FORMAT (✓» 5X» ' *****FILENAME ALREADY EXISTS***** ' ) 

700 CONTINUE 

HR I TE<6» 601 ) FILENAME 
URI TE ( 6.610) 

WRITE (6. 620 ) 

WRITE ( 6. £21 ) AM ( J ) . 0. R 
WRITE ( 6 » 630 > 

WRITE ( 6 » S40 > 

WRITE t 6. S10 > 

DO 750 1:1.40 

WRITE (6. 650 > RPM( I.J).FG(I.J) . UF <I.J).UA(I.J).TSFC(I.J> 
750 CONTINUE 

CLOSE (UNIT :6) 

GOTO 1005 

601 F0RMAT(4X. 'FILENAME:'. BA) 

610 FORMAT (' ') 

620 F0RMATC4X. 'MACH NUMBER:') 

621 FORMAT (1X.3G1S.7) 

630 FORMAT ( 10X . ' CRPM ' , 7X, ' FG/DELTA2 ' . 6X. ' CFUELFLOW ' . 7X. 

& 'C AIRFLOW' »7X. 'TSFC^THETA2' > 

640 FORMAT C 25X. 'LBS'. 10X, 'LBS^HR ' . 9X. 'LBS^SEC') 

650 FORMAT (4X.5G15.7) 

995 TYPE*. 'ERROR IN OPEN 6'. 15 
1000 FORMAT ( A8 ) 

1005 CONTINUE 
1010 CONTINUE 
STOP 
END 

SUBROUTINE LINEX(ORD.K.KT.NNN) 

DIMENSION 0RD(40» 18) ,K( 1) ,KT( 1) 

C 

C THIS SUBROUTINE CALCULATES THE LINEAR 

C RATE OF CHANGE OF THE DIFFERENCE BETWEEN 

C ADJACENT MACH CURUES AND EXTRAPOLATES 

C ALL CURUES ON THE BASIS OF THIS 

C APPROXIMATION. 

C 

DO 1:1. NNN— 1 

DEL 1:0RD(K(I+1>+1. 1*1 ) -ORD< K( 1*1 ) ♦! . I) 

DEL2:0RDCKCI + l>«-2. I* l >-ORDCK( 1*1 >*2. I) 

DEL3:0RD(K(I*1 )+3. 1*1 ) -ORDC K ( I *1 ) +3. I ) 

DELD1 :DEL1-DEL3 
DEL D2: DEL 2-DEL 3 
DELD:(2*DELD1*DELD2).'6.0 
DEL: DEL 3+ 3. 0*DELD 
IF (DEL*DEL3.LE.0.0) DEL :0 . O 
DO J:0.K(I*1>-1 
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nnnonnnn on 


0RD<K<I*1>-J,I*1>:0RD<K<I*1)-J,I)*DEL 

TEL:DEL 

DEL :DEL + DELD 

IF ( TEL* DEL . LC . 0. 0) DEL =0. 0 
END DO 
END DO 


DO 1 = 1. < NNN-1 > 

DELI :ORD( ( 40-KT ( NNN-I ) ) * NNN-I* 1 ) -ORD< < 40-KT < NNN-I ) ) » NNN-I ) 
DEL2:0RD< < 40-KT < NNN-I )-l )» NNN-I+1 ) 
ft -ORDt ( 40-KT (NNN-I )-l ) # NNN-I ) 

DEL3:0RD< ( 40-KT ( NNN-I )-2 ) , NNN-I* 1 ) 
ft -ORD< t 40-KT ( NNN-I )-2 ) » NNN-I ) 

DELD1 : DELI -DEL 3 

DELD2:DEL2-DEL3 

DELD: ( 2 . 0*DELD 1 +DELD2 ) ^6 . 0 

DEL:DEL3*3.0*DELD 

IF < DEL a DEL 3 . LE.0.0)DEL:0.0 

DO J : 1 « KT ( NNN— I ) 

ORD< 40-KT ( NNN-I ) *J» NNN-I ) =ORD< 40-KT ( NNN-I ) *J» NNN-I+1 >-DEL 
TELsDEL 
DEL iDEL+DELD- 
1F ( TEL*DEL . LE . 0 . 0 )DEL:0 . 0 
END DO 
END DO 
RETURN 
END 


SUBROUTINE 0RTHPY1 


ORTHPY - GENERATE A SET OF OTHOGONAAL POLYNOMIALS 
FROM A SERIES OF DATA POINTS 


SUBROUTINE 0RTHPY1 <N» XUALUE, FUALUE, K2» X2» Z, M, P) 
DIMENSION XUALUE < N ) » X2 < K2 ) , BCOEF C 12 ) » ALPHA ( 12). BETAC 12) 
*» P < N, 12) • OMEGA ( 12) , GAMMA ( 12) » 2 < K2) , Q( 12 ) * FUALUE < N) 
DIMENSION DELT A2 ( 20) , SIGMA2 < 20) 

DELTA2:0. 

SIGMA2=0. 


C 

c 

c 

c 

c 


OMEGArO. 

GAMMA:0. 

BCOEF :0 . 

ALPHA: 0 

BETA:0 

0:0 

P:0. 


DEFINITION OF 

1. XUALUE <N) 

2. FUALUE < N ) 

3. N 


UARIABLES 

DATA POINT X UALUES 
DATA POINT FUNCTION UALUES 
NUMBER OF DATA POINTS 
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C 4. BCOEFIMl 
C 5. ALPHA (Ml 
C 6. BETA(M) 

C 7. h 
C 8. Z(K) 

C 9. K2 
C 10. X2(K1 

C 11. P 
C see RALSTON. PG 259 
C 

c 

00 23000 1=1. n+z 
OMEGA ( I ) =0 . 0 

c 

23000 CONTINUE 

23001 CONTINUE 

DO 23002 1=1. N 
P<I. 21=1.0 
PCI. 11:0.0 
YUALUE =0 . 0 

23002 CONTINUE 

23003 CONTINUE 
GAMMA< 21 =N 
BETA ( 21=0.0 

DO 23004 J =2. M+2 
DO 23006 K= 1 , N 

ONEGA ( J 1 = ONEGA C J 1 +FUALUE ( K 1 *P ( K » J 1 

23006 CONTINUE 

23007 CONTINUE 

BCOEF ( J 1 IOMEGA C J 1 ✓ GAMMAt J 1 
DO 23008 I = 1 < N 

YUALUE iYUALUE+BCOEF ( J)*P< I. J1 

23008 CONTINUE 

23009 CONTINUE 

IF < . NOT . (J.EQ.M+211 GOTO 23010 
GOTO 23005 

23010 CONTINUE 
ALPHACJM1=0.0 
DO 23012 K: 1 . N 

ALPHA ( J>1 1 = ALPHA C J> 1 1 +-XUALUE < K 1 *P ( K» J 1 «*2^GAMMA < J 1 

23012 CONTINUE 

23013 CONTINUE 

DO 23014 1=1, N 

P(I, J>l)=(XUALUE(I}-ALPHACJ'M) 1*P(I. J 1 -BETA< J1 *P( I . J-ll 

23014 CONTINUE 

23015 CONTINUE 
GAMNA< J>1 1=0.0 
DO 23016 1=1, N 

GAMMA ( J+i 1 =GAMNA( J*1 1*P< I, J+l 1**2 

23016 CONTINUE 

23017 CONTINUE 

' BE TA C J «■ 1 1 = GAMMA ( 1 1 /GANNA ( J 1 

23004 CONTINUE 

23005 CONTINUE 

DO 23018 1=1, N 


COEF. FOR LEAST SQUARES POLY. 

ALPHA COEF. FOR ORTH. POLY RECURRANCC RELATION 
BETA COEF. FOR ORTH. POLY REC. REL. 

ORDER OF POLYNOMIAL FIT 
UECTOR OF SMOOTHED DATA POINTS 
NUMBER OF INTERPOLATED POINTS DESIRED 
UECTOR OF X-UALUES WHERE SMOOTHED DATA IS DESIRED 
WORKING UECTOR 
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DELTA2CM) =0.0 

00 23020 J=1.H*2 

SUM = SUM*BC0EF< J>*P(I, J> 

23020 CONTINUE 

23021 CONTINUE 

DELTA2 ( H ) =DELTA2 < M ) ♦ ( FUALUE ( I ) -SUM ) **2 

23018 CONTINUE 

23019 CONTINUE 

SIGMA2 < M) =DELTA2 ( M) / < N-M-l ) 

DO 23022 Jsl, H 

DELTA2(M) =0.0 

DO 23024 1=1, N 

SUM =0.0 

DO 23026 K = 1.J 

SUM = SUM+BCOEFOO*P<I.K> 

23026 CONTINUE. 

23027 CONTINUE 

DELT A2 ( J ) =DELT A2 1 J ) ♦ ( FUALUE < I ) -SUM ) **2 

23024 CONTINUE 

23025 CONTINUE 

SIGMA2< J ) = DELTA2( J >/ ( N-J-l > 

23022 CONTINUE 

23023 CONTINUE 

DO 10 1=1, K2 

DO 20 IJ=1,M*2 

acu)=o.o 

20 CONTINUE 

DO 30 Jsl, M+l 

K = M+-3-J 

Q C K ) = BCOEF (K ) ♦• ( X2C I ) - ALPHA CK+1 ) ) *Q(K-*-l ) -BETA<K+1 ) * 
& Q(K+2) 

30 CONTINUE 

Z( I ) =Q( 2) 

10 CONTINUE 
RETURN 
END 



C.2.6 F. TABLE 


PURPOSE: 

To 1 ) correct engine test data from a thrust run and calculate 
the airflow and specific fuel consumption for the actual engine 
and 2) provide the corresponding values of n, the ratio between 
the thrust run and deck values of TSFC, for each engine. 


APPROACH: 

The program prompted the user for the values of test rpm, fuel 
flow, thrust, pressure, and temperature. All corrected values 
corresponding to the entered values were then displayed and, upon 
confirmation, the program continued with calculations which produced 
corrected airflow and corrected specific fuel consumption. Sub- 
routines then interpolated these values at even breakpoints for 
comparison with the engine deck values obtained from F. EXTRA. 
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uuuuuuuuuuuuuuuuuuuu uu in U O N u u o 


ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHORS 

COMPUTER 

O/S 

COMPILER 


UNIUERSITY OF KANSAS CENTER FOR RESEARCH INC. 
F. TABLE 

FILE* DAUID J. AND LOUETT # MICHAEL 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (FORT77) 


REVISIONS 

i 1 ! : ! 1 

I PRO I UER/REU I NAME I DATE I 

i x x 1 1 

I I I/O I FILE/LOUETT I 12/23/621 

I X 1 1 X 


SO 


DIMENSION RPMN1 ( 100) » XNK100). TFG(IOO), FG<100>, TWA(IOO). 
&CWA(100), TFF < 100) » CFF(IOO), TSFC(IOO), TTSFCOOO). DELFG(IOO), 
fcDELFF ( 100) » DELWA(IOO), ETA(IOO), TFF 1 < 100) < X2(100>, TFGK1Q0). 
&DY ( 100 ) . THETA 1100), THETA2 ( 100 ) , ETA1 ( 100 ) . CUA 1 < 100 ) . CFF 1(100), 
&TSFC1 ( 100 > , THAI ( 100 ) , TSFCO( 100 ) , CFG1 ( 100 ) . DELTA ( 100 ) . TSFCAC 100) , 
&TFFA ( 100 ) , TFFA1 C 100 ) . TTSFCA( 100 ) , CFFAC lOO ) , CFFA1 ( 100 ) . ETAA( 100 ) 
a.TSFCXC 100), TSFC2C100) 

THIS PROGRAM IS THE COMBINED EFFORT OF DAUID FILE AND MIKE LOUETT 
DEFINES HEADING FOR OUTPUT TABLE 

CHARACTER IDENT*40, FILENAME*8, W0RDS(7>*11, A*1 
FORMAT ( A ) 

OPEN < UNIT : ’ UT * ) 


***********CONSTANTS FOLLOW 


WORDS ( 1 ) s 
WORDS ( 2 ) : 
WORDS ( 3 ) s 
WORDSCS): 
WORDS ( 4 ) = 
WORDS ( 6 ) = 
WORDS ( 7 ) : 
IFLAG=5 


PRESSURE' 
PRESSURE' 
DELTA' 
TEMP ' 
LAST CHANCE' 
TEMP ' 
THETA**. 5' 


*********** 


SEAPRES:29. 92 
SEATEMP r 518 . 7 

******IE, LEFT and right engine 


TYPE *, '****************** A '' A ''^ A '“' >AA ' N '' A ' A ' A ' , ' < '********************** 
TYPE *, 'RUN LINESIZE 132 AND OPTION 7 BEFORE RUNNING THIS PROGRAM 

TYPE 4/ p 444444444444444444 aaaaaaaaaaaaaaaaa 444444444444444444$44| 

TYPE 20 

FORMAT*/, '*',5X, 'INPUT TABLE IDENTIFICATIONS (MAX 40)J ') 

ACCEPT 5/IDENT 

******* INPUT OF DATA FROM TEST RUN»****** 

BaaBBBBnaaBaaBnaBBaaaBBBaaBaBaBBBaaaBaaaaaaBnBBaaqBaBBaBBanaaaaBi 

TYPE SO 

FORMAT(/, '*',5X. ' ******ENGINE RUN DATA TO BE CORRECTED AND CURVE 
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iriTTEDJ ') 

55 TYPE 70 

70 FORMAT ! ✓. ' **'. 5X. ' INPUT II OF ENGINE STABILIZATIONS) ') 

ACCEPT a, NNN 
TYPE SO 

60 FORMAT!/. 5X. 'INPUT RPM-N1 . ' * 2X. ' FUEL FLOW-WF » ' » 2X, 'GROSS THRUST- 
S-FG, ' » 2X. ' RUN PRESS AND TEMP') 

C ***************** rpm-ni aaaaaaaaaaaaaaaa 

TYPE *. ' ' 

TYPE *, 'ENTER THE UALUES OF RPM-N1 ' 

75 DO SO 1:1, NNN 

TYPE 77.1 

77 FORMAT!/. 5X. 'INPUT RPM-N1 ' , 13, ' : ' > 

ACCEPT a.RPMNl(I) 

80 CONTINUE 

C aaaaaaaaaaaaaaaa* FUEL FLOW - TFF aaaaaaa 

TYPE a, 'ENTER THE UALUES OF FUEL FLOW- LBS/HOUR' 

82 DO 87 1:1, NNN 

TYPE 85. I 

85 FORMAT!/, '*',5X, 'INPUT FF',13, ':') 

ACCEPT a, TFF! I) 

87 CONTINUE 

C aaaaaaaaaaaaaaaa GROSS THRUST aaaaaaaaaaa 

TYPE a, 'ENTER THE UALUES OF GROSS THRUST' 

90 DO 93 1:1, NNN 

TYPE 92.1 

92 FORMAT! /, '*',5X, 'INPUT FG’,I3. ':') 

ACCEPT a.TFGtl) 

93 CONTINUE 

C aaaaaaaaaaaaaaaaaa PRESSURE FOR DELTA aaaaaaaaaaaaaaaaaaaa 

TYPE a, 'ENTER THE UALUES OF PRESSURE ! IN HG )' 

180 DO 183 1:1, NNN 

TYPE 182,1 

182 FORMAT !/»' S ', 5X, ' INPUT PRESS. *IN HG*' , 13. ' : ' ) 

ACCEPT a, DELTA! I) 

183 CONTINUE 

C aaaaaaaaaaaaaaaaaa TEMPERATURE FOR THETA aaaaaaaaaaaaaa 

TYPE a, 'ENTER THE UALUES OF TEMPERATURE ! FAHRENHEIT ) ' 

190 DO 193 1:1, NNN 

TYPE 192.1 

192 FORMAT! /,' S 5X» ' INPUT TEMP. *F*'.I3.':'> 

ACCEPT a, THETA! I ) 

193 CONTINUE 

C IFLAGS CONTROL CORRECTION OF CORRECT UALUES !5.6 THEN 7) 

GOTO 95 

94 IFLAG : IFLAG 1 

TYPE a, 'aaaaaaaaaaa CORRECTED UALUES AT TEST CONDITIONS a****' 

95 WRITE! ' UT ' » 96 )! WORDS! I FLAG- 4 ) , WORDS! IFLAG ) ) 

C aaaaaaaaaaaaaaaaaa PRINT OUT OF TABLES ON SCREEN aaaaaaaaaaa* 

96 F0RMATC5X. 'tt',2X. 'RPM UALUE ' . 3X» 'FUEL FLOW UALUE ' » 

&3X, 'GROSS THRUST UALUE '. 3X» A9. 2X. A9 ) 

DO 130 1:1, NNN 
IF!IFLAG.LE.6) GOTO 97 

THETA! I ) :SQRT ! ! THETA! I ) *459. 6) /SEATEMP > 

DELTA! I ) :DELTAC I > /SEAPRES* . 995 
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RPMN1 < r ) :RPMN1 ! I > ./THETA! I ) 

C >>>>>>>>>>> .97 z POWER OF DELTA J CAW BE VARIED <<<<<<<<<<<< 

TFFA! I ) :TFF ( I >✓< DELTA! 1 >**. 97*THETA! I ) ) 

TFF!I)=TFF!I )✓< DELTA! I )*THETA! I ) ) 

TFG! I)=TFGI I)/DELTA!I> 

TSFCOC I):TFF(I)/TFG!I) 

TSFCA<I):TFFA(I)^TFG<I) 

97 WRITE ! ' UT ' , 1 10) I » RPMN1 ! I ) » TFF ! I ) » TFG! I ) , DELTA! I ) , THETA! I ) 

110 FORMAT ( 3X, 13/ 2X» F10. 4. 3X# F 10. 4, 9X ,F10.4, 7X. F10. 4, 2X. F10. 4) 

130 CONTINUE 

IF!IFLAG.EQ.7) GOTO 999 

C **************** CHANGING OF WRONG VALUES ******* 

230 FORMAT <A1) / 

IF ( I FLAG . EG . 5 ) GOTO 210 
TYPE 215, WORDS ! 4 ) 

210 TYPE 200 

215 FORMAT!./ » 'S'»3X» ' ************** ', All) 

200 FORMAT ! / » ' * ' » 5X» 'ANY CHANGES ?? Y/N ') 

ACCEPT 230, A 

IF! A. EG. 'N' ) GOTO 94 

IFLAG=5 

250 TYPE 300 

300 FORMAT! /»'*'. 5X. 'CHANGES IN ** RPM-N1 ** I Y/N ') 

ACCEPT 230, A 

IF! A. EG . 'N ' ) GOTO 550 

TYPE 400 

400 FORMAT!/, 5X, 'WHICH ** RPM-N1 ** ?? ') 

ACCEPT *» K 
TYPE 500. K 

500 FORMAT !/»' S ', 5X, ' INPUT NEW RPM-N1 ' , 13, ' s ') 

ACCEPT *, RPMN1 ! K ) 

GOTO 230 

C 

550 TYPE 600 

600 FORMAT ! /, ' * ’ . 5X, ’ CHANGES IN ** FF ** ; Y/N ') 

ACCEPT 230, A 

IF! A. EQ. 'N' ) GOTO 850 

TYPE 700 

700 FORMAT!/', '*',5X, 'WHICH ** FF ** ?? ') 

ACCEPT * , K 
TYPE 800, K 

800 FORMAT!/, 'S', 5X, 'INPUT NEW FF',I3, 's ') 

ACCEPT *, TFF ! X ) 

GOTO 550 

C 

850 TYPE 900 

900 FORMAT !/»'*', SX. ' CHANGES IN ** FG ** I Y/N ') 

ACCEPT 230, A 

IF ! A . EQ . 'N' )GOTO 150 

TYPE 1002 

1002 FORMAT!/. '*’,5X» 'WHICH ** FG ** ?? ') 

ACCEPT * , K 
TYPE 1102.X 

1102 FORMAT ! /, ’*’,5X. 'INPUT NEW FG*»I3»'= ') 

ACCEPT *, TFG! X) 
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GOTO 850 
C 

150 TYPE 151 

151 FORMAT!^, '*'»5X» 'CHANGES IN *« PRESS «« I Y.'N ') 

ACCEPT 230 » A 

IF ( A . EG . 'N' )GOTO 120 
TYPE 153 

153 FORMAT ! ✓» ' S’ » 5X» 'WHICH ** PRESS ** ?? ') 

ACCEPT *,K 
TYPE 155. K 

155 FORMAT ! ✓» ' S ’ » 5X» ' INPUT NEW PRESS', 13, ’= ') 

ACCEPT *, DELTA! K ) 

GOTO 150 
C 

120 TYPE 121 

121 FORMAT Is t 'S'# 5X, ' CHANGES IN ** TEMP *» > Y/N ') 

ACCEPT 230.A 

IF ( A . EQ . 'N' )GOTO 94 
TYPE 123 

123 FORMATC^. 'S' , 5X, 'WHICH ** TEMP ** ?? ') 

ACCEPT *,K 
TYPE 125, K 

125 FORMAT!/', 'S’.SX, ’INPUT NEW TEMP ’,13,’= ’) 

ACCEPT *, THET A ! K ) 

GOTO 120 

999 TYPE *, ’ >>>>>>>>>> DETERMINING BREAKPOINTS <<<<<<<<<<’ 

C ******** ******************************************************** 

C* THIS GROUP OF STATEMENTS DETERMINES THE RPM BREAKPOINTS 

C **«*»«*«**»*«««**««*««»«**«*«****«»**««*****«**«*«*««*******•«*• 

C — ~ ~ NH IS THE FIRST BREAKPOINT AND IS DETERMINED — — ~~~~ 

N1 1 = ANINT ! RPMN1 ! 1 ) / 1000 ) 

N1 1=N1 1*1000 

IF!N11.GT. RPMN1 ! 1 ) ) GOTO 1010 
N1 1 :N1 1+500 

C ~ N12 IS THE LAST BREAKPOINT AND IS DETERMINED ~~ 

1010 N1 2= ANINT ! RPMN1 ! NNN) /1000) 

N1 2=N1 2* 1 000 

IF ( N12 . LT . RPMN1 ! NNN) )GOTO 1020 
N12=N12-500 

C — ~ THE NUMBER OF POINTS TO BE WORKED WITH IS FOUND , A ' — ~~~ 

1020 N:( N12 -Nll)^500-»1 

DO 1000 1=1, N 

1000 X2!I)=N11*500*CI-1> 

C* THE SUBROUTINE WACSUB IS CALLED TO INTERPOLATE 

Cm THE TEST DATA TO THE RPM BREAKPOINTS. 

C 

CALL WACSUB! RPMN1 ,TFG»TFG1» DY » X2 , N, I ERR, NNN) 

CALL WACSUB ! RPMN1 , TFF, TFF 1 , DY , X2, N. IERR.NNN) 

CALL WACSUB! RPMN1, TFFA, TFFA1 , DY, X2. N. IERR. NNN) 

C 

C* THE FOLLOWING STATEMENTS ACCESS THE FILE CONTAINING THE 
C* DECK DATA, AND STORES THE NUMBER OF DATA POINTS AS NUAL. 

C 

TYPE 1100 

1100 FORMAT < ✓. ’ • ’ » 5X, ’ INPUT FILENAME CONTAINING DECK DATA! ’ ) 
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ACCEPT 8000. FILENAME 

OPEN ( UNIT =9, FILE =FILENAHC, USER: 'BRAMAN' » STATUS: * OLD' > FORM: 
fc 'FORMATTED ' * BLOCKED: . TRUE. » ACCESS: 'SEQUENTIAL ' * IOSTAT = 13, 
fcERR=8300> 

DO 1250 1=1.7 
READ< 9. 1 200) 

1200 FORMAT ( ' '.A) 

1250 CONTINUE 

C *A*A**.ww» ENGINE DECK DATA IS READ FROM THE FILE aaaaaaaaaaaaaaa 

RE ADC 9. 1300. END: 1400) CXN1 CD.FGCI), CFF Cl). CUAC Il.TSFCCI). 

* 1 = 1 . 100 ) 

1300 FORMAT (5G15.7) 

GOTO 1500 
1400 NUAL = 1 — 1 
1500 CONTINUE 
C 

C« THE DECK DATA IS SEARCHED TO FIND THE N1 

C* CORRESPONDING TO THE INITIAL BREAKPOINT. 

C 

IF ( AN I NT ( X2( 1 ) ) . 6E . AN I NT < XNI Cl))) GOTO 1750 

TYPE *» 'FIRST RPH FROM TEST DATA IS TOO LOU) REENTER DATA* 

IFLAG=5 
GOTO 55 
1750 CONTINUE 

DO 1800 1=1. NUAL 

IFC ANINT C XNI C I ) > . EQ. AN I NT CX2 Cl))) GOTO 1900 
1800 CONTINUE 
TYPE 1850 

1850 FORMAT!'.' ERROR IN N1 COMPARISON. PROGRAM TERMINATED') 

STOP 

1900 L=I 
C 

C* THIS LOOP DETERMINES WHICH TEST POINTS LIE WITHIN THE 
C* RANGE OF RPM'S FROM THE DECK DATA 
C 

DO 1930 1=1. CNNNfl) 

IFCRPMN1 CNNN-I+1). LE. XNI C NUAL) ) GOTO 1940 
1930 CONTINUE 
1940 MUALsNNN-I+l 
C 

C *********************!***#**************************************• 

C >>>>>>> INTERPOLATES ALL CHARACTERISTICS TO TEST ** RPM'S ** << 

C >>>>>>> FOR AIRFLOW DETERMINATION <<<<<<<< 

C a*************************************************************** 

C 

CALL MACSUBC XNI . FG.CFG1. DY. RPMN1 . MUAL. IERR.NUAL) 

CALL WACSUB CXN1 . CWA. CWA1 , DY. RPMN1 . MUAL. IERR. NUAL > 

CALL WACSUB < XNI . CFF, CFF1 , DY. RPMN1 , MUAL. IRRR, NUAL ) 

CALL WACSUB C XNI , TSFC, TSFC 1 , DY, RPMN1 , MUAL. IERR. NUAL ) 

£ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

c *************** DETERMINE UALUES OF AIR FLOW ************** 

Q AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

DO 1950 Jsl.NNN 

ETA1C J)=TSFCAC D'TSFCIC J) 

TSFC2C J)=TSFC1< J)*DELTAC J > ** . 97'DELTAC J) 
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TWA1! J) =TFFA< J)»THETA! J)a»2*< ! CMA1 < J >*3600 . 0/! CFF1 < 3 ) 

»*THETA! J)**2*ETA1 ( J) ) )*1/ETA1 t J)-l )/3600.0 
1950 CONTINUE 

DO 1960 1=1, N 

IF < X2 ! N-I *1 > . LE . RPNN1 ( MUAL ) >G0T0 1970 
1960 CONTINUE 
1970 IUALiN-I+1 

C >>>>>>> INTERPOLATES AIRFLOW BACK TO DECK BREAKPOINTS <<<<<<<< 

CALL MACSUB! RPMN1 , TMA1 , TWA, DY» X2, IUAL, I ERR, NUAL) 

CALL MAC SUB ( RPMN1 , TSFC2,TSFCX, DY , X2, IUAL, IERR.MUAL) 

DO 2000 J=1,N 
K= J+L-l 

DELFG! J)=TFG1! J)-FG!K) 

DELFF! J )=TFFA1 ( J)-CFF(K) 

TTSFC! J)=TFF1! J)/TFG1! J) 

TTSFCAIJ)=TFFA1! J )/TFGl ( J ) 

ETA ( J ) sTTSFC ( 3 ) /TSFCXI J ) 

ETAA! J ) =TTSFCA !J)/TSFC!K) 

2000 DELWA! J ) = TWA ( J ) -CWA ( K ) 

C 

C 

C* REST OF PROGRAM STORES THE DATA IN A FILE, 

C* IF THE USER DESIRES 
C 

C THE RESULTS ARE OBTAINED BY LISTING THE CREATED FILE, 

C 

C 

2100 FORMAT!//. 1BK, 'CORRECTED TEST UALUES * DELTA»«.97') 

2105 FORMATS, 23X, 'EXTRAPOLATED TEST UALUES') 

2110 FORMAT!//,', 26X, 'CORRECTION FACTORS') 

2150 FORMAT!//, 10X, A8, 7X, A40) 

2200 FORMAT !//,6X, ' N1 ' , 1 IX, 'FG ' , 1 IX, ' MA ' , 1 IX, 'FF*, 10X, 'TSFC',7X. 

B'TFSC Q ,97' ) 

2220 FORMAT!//. 6X, 'Nl'.lOX, 'DELFG'.IOX. 'DELUA'.BX, 'DELFF ' , 8X» ' ETA ’ , BX, 
B'ETA - .97' ) 

2250 FORMAT!/, 5X, 'RPM'.UX. 'LBS’,9X» ' LBS/SEC '. 6X, 'LBS/HR'. 7X» '1/HR' 
&,8X.'1/HR'> 

2260 FORMAT!/, 5X, 'RPM' , 11X, 'LBS', 10X. ' LBS/SEC ', 7X. 'LBS/HR' ) 

M = N 

2300 F ORMAT !/,3X»F7.0, 5X» F9.3»4X,F9.3»4X«F9.3»4X»F9.7«4X»F9.7) 

2323 F0RMAT!/,3X»F7,0, 5X, F9. 3, 5X, F9.3,5X,F9.3«4X,F9.7, 4X» F9. 7 ) 

TYPE 2400 

2400 FORMAT!/, 5X, 'DO YOU WISH TO STORE THE DATA? Y/NJ ' ) 

ACCEPT 8010, A 
IF < A, EQ . 'N ' ) STOP 
GOTO 2490 
2790 TYPE 2800 

2800 FORMAT!/, 5X, 'FILENAME ALREADY EXISTS' ) 

2490 TYPE 2500 

2500 FORMAT!/. '*',5X. 'INPUT FILENAME TO STORE DATA IN»') 

ACCEPT 8000, FILENAME 

OPEN! UNIT = 7, FILE = FILENAME, USER: ' BRAMAN ' . STATUS: 'NEW'. 
&FILESIZE:40.F ORM : ’ FORMATTED BLOCKED: . TRUE . . I0STAT = I6. 
iERR:2600, CLEAR:. TRUE. ) 

2600 IF!I6.E0.0)G0T0 2900 
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IF ( 16 . GT . 1) GOTO 8100 
1F(I6.EQ.1) GOTO 2790 

2900 WRITE (7, 2150, I0STAT:I5» ERR: 8200 ) (FILENAME* IDENT) 

WRITE (7. 2100. I0STAT:I5» ERR: 8200 ) 

WRITE <7. 2310. I0STAT:I5. ERR:B200) 

WRITE (7. 2320. IOSTAT: 15. ERR:8200 > 

WRITE < 7 . 2330. IOSTAT: 15. ERR:8200 ) < RPMN1 < I ) . TFG! I ) . TWA1 < I ) . TFFA! I ) 
fc,TSFCQ!I),TSFCA(I), I:1»NNN) 

WRITE (7. 2305. IOSTAT: 15. ERR:8200) 

WRITE (7, 2315. IOSTAT: 15. ERR:8200) 

WRITE <7. 2325. IOSTAT: 15 . ERR:8200 ) 

WRITE ( 7. 2335. I0STAT:I5. ERR:8200) (RPMN1 ( I ) . CFG1 ! I ) » CWA1 ( I ) . CFF1 t I > 
&. TSFC1 ( I > » I:1.NNN ) 

WRITE (7. 2105. IOSTAT: IS. ERR:8200) 

WRITE (7. 2200. IOSTAT: 15. ERR:8200» 

WRITE <7, 2250, IOSTAT: 15. ERR:8200) 

WRITE (7, 2300, IOSTAT: 15. ERR:8200> ( X2 ( I > . TFG1 ( I ) . TWAC I > , 

&TFFA1 1 1 ) , TTSFC CD. TTSFCA! I ) , I: 1 , Ml 
WRITE (7. 21 10, IOSTAT: IS. ERR:8200) 

WRITE <7, 2220. IOSTAT: 15, ERR :8200) 

WRITE <7,2260, IOSTAT: IS. ERR:8200> 

WRITE (7, 2323. IOSTAT : 15, ERR: 8200) (X2 < I ) , DELFG! I ) , DELWA< I ) , DELFF ( I ) 
&.ETACI), ETAA <I),I:1,M) 

WRITE <7, 4999. IOSTAT: 15. ERR:8200) 

WRITE <7, 5000. IOSTAT: 1 5, ERR: 8 200 ) ( X2 ( I ) , ETAA < I ) » I:1.M) 

4999 FORMAT! *1') 

5000 FORMAT <T6,F7.0,T23»F9.7) 

TYPE *,'*********** DATA SAVED ************' 

STOP 

8000 FORMAT! AS > 

8010 FORMAT I Al ) 

8100 TYPE*. 'ERROR IN OPEN 7'. 16 
8200 TYPE*. 'ERROR IN WRITE 7'. 15 
8300 TYPE*. 'ERROR IN OPEN 9', 13 

2125 FORMAT!/',', 44X, 'DEL-TERMS ARE TEST VALUES MINUS DECK VALUES') 

2305 FORMAT!/'./, '*** CORRECTED DECK VALUES AT TEST RPM S *** 8 .97 *•*', 

l'**************************' ) 

2310 FORMAT ! //» 5X» 'CN1',7X, 'CFG (TEST) ',5X, ' CWA! TEST ) ' . 4X. 'CFF ! TEST ) ' » 
&2X, 'CTSFC(TEST)'. 2X, ' CTSFC 0 .97’) 

2315 FORMAT!//, 4X. 'CN1 '.7X, 'FG(DECK) ',7X. ' WA! DECK ) ' . 5X. »FF ! DECK) ' . 4X. 
&'TSFC< DECK ) ') 

2330 FORMAT !/,2X,F9.3,3X,F9.3,4X,F9.3,4X.F9.3.4X,F9.7,4X,F9.7) 

2335 FORMAT! /, 2X, F7. 0, 4X.F9. 3. 5X, F9. 3, 4X. F9. 3. 4X, F9. 7) 

2320 FORMAT!/, 5X, 'RPM', 10X. 'LBS'. 8X, 'LBS/SEC' . 7X. ' LBS/HR '.8X. 
t'l/HR',8X, 't/HR') 

2325 FORMAT!/, 4X, 'RPM', 10X. 'LBS' ,9X, ' LBS/SEC '. 6X, 'LBS/HR',8X, '1/HR' ) 

END 

SUBROUTINE WACSUB ( X,Y.Z.DY,X2,K, IERR . NVAL ) 

C COMMON/ ORDER/ I DUN! 4 ) » NVAL 

C DOUBLE PRECISION AVGXL. AVGYL, FACTOR 

DIMENSION H( 150). X! 1),X2( 1). Y! 1),DY!1) 

C 

C SCALE THE X DATA SO THAT THE X'S AND Y'S ARE OF THE SAME MAGNITUDE 

C 

AVGXL :0 . 
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AUGYL=0. 

DO 10 1 = 1. NUAL 
AUGXL = AUGXL + ABS < X< I > > 

10 AUGYL =AUGYL+ABS ( Y( I > ) 

AUGXL =AUGXL/NUAL 
AUGYLsAUGYL/NUAL 
FACTOR: AUGXL/ AUGYL 
DO 20 1 : 1 > NUAL 
20 XCI)=XCI)/FACTOR 
DO 30 1= 1 . K 
30 X2 ( I ) =X2 ( I ) /FACTOR 

CALL UAC (NUAL. X* Y » K < X2 » Z» DY » H. 0. Q. I ERR > 

IF( IERR.EQ.O) GO TO SO 
KsNUAL 
IDO 40 1=1. K 
40 X2( I ) :X( I > 

SCALE THE X DATA BACK TO ITS ORIGINAL MAGNITUDE 

SO DO GO 1=1 /NUAL 
60 X(1)=X(I)*F ACT OR 
DO 70 I = 1 / K 
70 X2(I)=X2(I)*FACT0R 
RETURN 
END 

SUBROUTINE MAC (M.XJ.YJ.N.XI.F.G.H. I FLAG/ I SAUE/ I ERR) 


(1) 

THIS SUBR (WEIGHTED ANGLE CUBIC) INTERPOLATES THE INPUT FUNCTION YJ 
GIUEN AT THE M STATIONS XJ TO THE N OUTPUT STATIONS XI. F CONTAINS 
THE FUNCTION. G ITS DERIU. AND H ITS INTEGRAL. THE METHOD IS CUBIC 
THRU TWO POINTS WITH THE DERIUS GIUEN BY WEIGHTING THE ST LINE 
ANGLES. NOT SLOPES. U IS THE WEIGHT FACTOR. 

REFX TAPS PROGRAM MDC J7253 (CONTRACT* N00024-75-C-7205 ) 


IMPLICIT REALMS < A-H . 0-S. U-2) 

DIMENSION XJ(1).YJ(1).XI(1).F(1>.G(1).H(1).A(150).B(150). 

&C ( ISO). D( 150) 

C DATA ZO/O. 0D0/.Z2/2.0D0/. Z3/3/0D0/. Z4/4 . ODO/. Z6/6 . ODO/ 

DATA ZO/O.O /. Z2/2.0 /. Z3/3.0 /. 24/4.0 /.Z6/6.0 / 

C 

Ml =M-1 
M2=M-2 
N1=N-1 

C (3) 

C* STORE INTERUAL SIZES IN H AND ST LINE ANGLES IN F 
C 

do io jsi.m 

H< J) =XJ< J-H )-XJ< J) 

IF <H< J) . EO. 0. ) GO TO 20 
U1 =YJ< J*1 )-YJ< J) 

C F < J ) = DAT AN2 (Ul.H(J) 

F(J)= ATAN2 (Ul.H(J) ) 
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C D( J ) : DSQRTt H(J)«H(J> Ul*Ut> 

D ( J ) : SQRTt H( J ) *H( J ) ♦ U1«U1> 

10 CONTINUE 
GO TO 40 

20 WRITE <6* 30 ) J. (XJ(I).YJ(I). 1 : 1 . M ) 

30 FORMAT ( 1H0. 38H*«*ERR0R IN DATA GIUEN TO ROUTINE MAC.. 

135H INTERUAL SIZE IN X IS ZERO AT THE .I3.9HTH POINT. . 

Z/, (2E16.5) > 

M = J-l 
Ml = M-l 
M2 = M-2 
20 IERR=1 

DO 11 1:1. M 
11 CONTINUE 
RETURN 
40 CONTINUE 
C 

C* NOW STORE G UALUES AND PUT INPUT UALUES INTO F (FOR CONUENIENCE) 
C 

DO SO J: 2. Ml 

U1 : ( D ( J > *F ( J-l ) + D( J-l )*F ( J ) ) ✓ < D(J) ♦ D(J-l) ) 

C G( J) : DTAN(Ul) 

G< J ) : TAN(Ul) 

F(J-l) : YJ(J-l) 

50 CONTINUE 

F< Ml ) : YJ(Ml) 

F(M> : Y J (M > 

C (5) 

C» NOW FIND CONSTS AND HOLD INTEGRAL AT J STATIONS IN YJ. FIRST AND 
C* LAST ARE EXCEPTIONAL (QUADRATIC). 

C 

IF ( IFLAG .EQ. O) GO TO 60 

C* FORCE FIRST POINT SLOPE TO ZERO IF IFLAG .NE. 0 
G < 1 ) : ZO 
J1 : 1 
. GO TO 70 
60 Jt : 2 
A ( 1 ) : ZO 


B(1):(F(1) -F (2 ) +G (2 ) *H( 1 ) ) / ( H( 1 ) *H( 1 ) ) 


C<1):(Z2*(F(2)-F( 1))-6(2)*H( 1) )/H(l) 

D ( 1 ) :F( 1 ) 

70 A ( Ml ) : ZO 

B(M1) :(F (M)-F (Ml)-G(Ml ) *H( Ml ) )^<H(M1)*H(M1) ) 

C(M1):G(M1 ) 

D(M1):F(M1) 

D(M):F(M) 

DO 80 J:J1.M2 

A(J):(H(J)*CG(J+1 >*G(J> >-Z2*(F(J+l)-F(J) ) )X(H(J)*«3) 

B< J) :<Z3»(F( J+l)-F( J) )-H( J)*(G( J + l )+Z2»G( J) ))/'<H( J)*H< J) ) 
C( J) :G< J) 

D< J) :F( J) 

80 CONTINUE 

C (6) 
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C* HOW CALC INTEGRAL. (SEE <3>) 

C 

YJ< 1 ) =20 

YJ<2)=YJ<l)4H(l)*(F(l)422*Ft2)-G(2) *H< 1)/Z2)/Z3 
DO 90 J=3.IU 

YJ< J)=YJ<J-1 >4HC J-l)»<F<J-l)4F< J)4H< J-1)*<G< J-l >-G< J) )sZ6)/Z2 
90 CONTINUE 

YJ(M)=YJCHI)4H(H1 )*C22*F(IU>4FCH)4G<ni)*H<Hl>/'Z2>/Z3 
C (7) 

C* DONE. NOW FOR FINAL INTERP UALUES 
C 

1 = 0 
J = 2 

100 1=141 

110 IF < XI ( I > . LE. XJ ( J ) ) GO TO 120 
IF (J.EO.N) GO TO L20 
J = J41 
GO TO 110 

120 ZI=XI<I>-XJ(J-1> 

212=21*21 
213=212*21 
214=213*21 
UA=A< J-l) 

UB=B< J-l) 

UC=C< J-l) 

UD=D< J-l) 

G( I ) =23*UA*ZI24Z2*UB*2I4UC 
F ( I ) =UA*2I34UB*ZI24UC*ZI4UD 

H( I) =UA*ZI4^244UB*ZI3^Z34UC*2I2^224UD*2I4YJ< J-l) 

IF <I.LT.N)GO TO 100 

** RESTORE DESTROYED YJ UALUES 

IF ( ISAUE .EQ. 1) GO TO 140 
DO 130 J = 1 * M 

Y J < J ) : D ( J ) 

130 CONTINUE 

RETURN 
140 CONTINUE 

C* DUMP ANSWERS BACK INTO YJ ARRAY IF ISAUE = 1 
DO 150 J = 1 / N 

Y J ( J ) = F ( J ) 

150 CONTINUE 

RETURN 

END 
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C . 3 FLIGHT TEST DATA REDUCTION 


Figure C.3 illustrates the routines and their execution order to 
process flight test data. These programs had many automatic as well as 
interactive features. A description and listing (if available) for 
each program is included. 
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Figure C. 3: Logic flow for performance data processing 
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C.3.1 START 


PURPOSE : 

This program processed the time varying parameters contained 
in flight test data base files and created performance file 
one. The program incorporated the quasi steady-state performance 
relationships needed for the analysis of those data. START 
was an interactive program designed as a generic routine 
suitable for the analysis of a number of aircraft configurations. 
Also, the analysis algorithm for conventional speed power and 
push-pull maneuvers were accomplished with the appropriate 
subrout ines . 


APPROACH: 

The program read the flight test data base file ( which were 
formated as random access files) one time increment at a 
time, and then processed and stored that time increment 
in a direct access file known as performance data file one. 
This algorithm continued until the entire run for a particular 
maneuver had been processed. Subroutine STAB and PUSHPULL 
were only called to reduce conventional speed-power and push- 
over, pull-up data. 
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c 

c 


ORGANIZATION 

PROGRAM 

SUBROUTINE 


AUTHOR 

COMPUTER 

OxS 

COMPILER 


UNIVERSITY OP KANSAS CENTER FOR RESEARCH INC. 
F. START 

HEDOT x STAB x PUSHPULL X CONUEN X 
REYNOLDS x TLU1 x TLU2 x RECOVERY x 
QRANDIN X GRIST AT x QRIOWAIT 
BRAMAN . KEITH 
SEL 32x77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


DATA FILE 


D.ttttAREA (AIRCRAFT WETTED AERA AND LENGTH 
DATA) 


2: D4.HHDAT (AIRCRAFT GEOMETRY DATA) 

3: D. BttCLDE (CHANGE IN LIFT COEFFICIENT DUE TO 
ELEVATOR DEFLECTION) 

4*. D . ttttCLIH (CHANGE IN LIFT COEFFICIENT DUE TO 
STABILIZER DEFLECTION) 

5: D4 . BttTHR (DECK THRUST DATA) 

6: D4.BBAIR (DECK AIRFLOW DATA) 

7: D.BBCMDE (COEFFICIENT OF PITCHING MOMENT DUE 
ELEVATOR DEFLICTION) 

8) D.BBCMQ (COEFFICIENT OF PITCHING MOMENT DUE 
( TO PITCH RATE 


Bit = AIRCRAFT CODE 
REVISIONS 


I 1 1 

I PRB I UER/REU I 

I 1 1 

I I 2^4 I 

I 1 j 


NAME 


KEITH BRAMAN 




I 1 

I DATE I 

I 1 

I 7X11X83 I 

I 1 


«« 


«« THIS PROGRAM PROCESSES THE TIME VARYING PARAMETERS CONTAINED 
** IN FLIGHT TEST OATA BASE FILES. AND CREATES PERFORMANCE 
** FILE ONE. THE PROGRAM INCORPORATES THE QUASI STEADY-STATE 
** PERFORMANCE RELATIONSHIPS NEEDED FOR THE ANALYSIS OF 
*• THOSE DATA. ALSO. THE ANALYSIS OF CONVENTIONAL SPEED- 

POWER AND PUSH-PULL MANEUVERS ARE ACCOMPLISHED WITH THE 
«« ATTACHED SUBROUTINES. 
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c 

c 

c 

c 

c 

c 


c 


** * * 

*« EQUATION NUMBERING > EQ.lt It ./APPENDIX ** 

** APPENDIX REF. TO REPORT It KU-FRL-5770-1 ** 

mm ** 


CHARACTERS FILENUM. CONFIG. FLTCODE, SEGMENT, C 
CHARACTER *2 RUN 
CHARACTER*3 FLIGHT 

CHAR AC TER *8 FILENAME, USERNAME, NAME, ACIN, FILENAM1 
CHAR AC TER *4 8 NOTHING 
CHARACTER*? MANEUUR/' JOPKSie'/ 

CHARACTER*8 ALLFLT < 6 ) /' 1 83 ' , ' 184 * , ' 185 * , ' 187 * , ' 188 ’ , ' 189 ' / 
CHARACTER*6 FLTCODE/ ' 123456' / 

REAL*4 MAC , LT, WAREA ( 9 > . LENGTH ( 9 ) , CMDE ( SO ) , CMQ ( 19) . CLDE ( SO ) , 
CLIHC 21 ) » GEOMETRY ( 40 ) , MAXN1 
INTEGER*4 INPFCB(16> /3RINP. 15*0/ 

INTEGER*1 CLEAR/28/, ESC/27/ 

INTEGER*4 FILESIZ.RECD 

D I MENS ION A ( 1 92 ) , THRUST ( 1 000 ) , WA ( 1 000 ) , 8 ( 60 > 

CONMON/CONU/ AURPM1 , HATOT, FGTOT , FRTOT , ANXW, THRUST. MA 
COMMON/GEOM/ALPHA, ALAMDA, OBARS. S, MAC, HAREA, LENGTH 
COMMON/OUT 1/RCSTDC 3) 

C0MM0N/0UT2/RF , SR, SRP 

COMMON/OUT 3/PS, RERR, HDOT, HE ( 5 ) . PI (S) 

COMMON/ OUT 4/CLS4. CDS4, C ALPHA 


EQU IUALENCE 
<A(7),P), 
(A(38>, ANIL), 

( A( 138) , WFL > , 

< A ( 58 ) , AMCT ) , 

( A ( 68 ) , QBART ) , 

< A ( 80 ) , FRR ) , 

( A ( 84 ) , AFR ) , 

( A ( 88 ) , YBAR ) , 
CA< 1 12) , ANXC) , 
(AC134), AMI C ) » 


( A ( 1 ) , ESB ) , 

( A ( 8 ) , 0 ) , 

( A ( 39 ) • AN 1 R > , 
(A( 139) , WFR) , 

( A ( 59 ) , HCT ) , 
(AC 77 ) , F GL ) » 

( A ( 81 ) , FNL ) , 

( A ( 85 ) , DLTT2 ) , 
( A ( 89 ) , ZBAR ) , 
(A( 1 13) , ANYC ) , 


( A (2 ) , ASB1 > , 
(A(9),R), 

( A ( 40 ) , AN2L ) » 

( A< 47 ) , FTL ) . 

( A ( 63 ) , ALPH AC ) . 

< A < 78 ) » FGR ) , 

< A( 82) , FNR) , 

( A ( 86 ) , UT ) , 

< A< 94 ) , PCTMAC ) » 

( A( 1 14 ) » ANZC ) , 


< A ( 1 35 ) . DLHPC ) , ( A(62) . UTT) . 


<A(76),RTHT2T), ( A ( 122 ) , TASK ) , 


(A( 119) , QCS), 

( A ( 1 1 5 ) , DLTE ) , 


< A < 117), PAS), 

< A< 27 ) » BETAU) , 

< A( 50) . TT5R ) 

I COUNT s J=I :0 

PSsRERR: HDOT : AsTHRUST :MA:B 
GE0METRY=0. 


<A(127),RTHT2S)» 
< A < 65 ) » DAT ) , 

( A( 18) , DLTS) , 


(A(3) , TIME) , 

( A ( 33 ) , FU ) « 

( A ( 4 1 ) , AN2R ) , 

( A( 48 ) , FTR ) , 

( A ( 67 ) , QCT > , 

< A< 79 ) , FRL ) , 

( A ( 83) , AFL ) , 

< A( 87 ) , XBAR ) , 
<A<96). ISUBYY), 
(AC 131), HCS), 
(AC7D.TATK). 

C A C 1 30 ) , UTS) » 

( AC 72 ) » THAT), 
(AC 49 ) , TT5L ) » 


:UAREA=LENGTH:CMDE=CMQ=CLDE :CLIH:0. 


URITEC 'UT', 1000)ESC, CLEAR 


THIS PROGRAM IS CAPABLE OF PROCESSING PERFORMACE DATA FOR THREE 
AIRCRAFT WITHOUT RECONFIGURING THE CODE. (I. E. LEAR35. LEAR55, 
CITATION II) 


OPEN AND READ THE ENGINEERING UNITS DATA FILE 

OPEN C UNIT = ' UT ' ) 

1 TYPE 3 
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3 • FORMAT! 5! />./.'»', 15X. ' INPUT AIRCRAFT TYPE CODE :'./. 

& 20X.'A/C CODE'. 10X. 'AIRCRAFT'./, 

ft 22X. 'L3', 18X. 'LEAR35'./. 

ft 22X. 'L5'. 18X. 'LEAR55' . /. 

ft 22X. 'C2'» I8X. 'CITATION II',/. 

ft 15X. 'A/C CODE : ') 

ACCEPT 399. ACIN 

IF ( AC IN . EQ. 'L3' >USERNAME: 'LEAR3S ' 

IF ( ACIN. EQ. 'LS' ) USERNAME: 'LEAR55' 

IF (ACIN. EQ. 'C2' )USERNAME: 'CITAT2' 

READ ALL AIRCRAFT DATA FILES 


OPEN AND READ NETTED AREA/LENGTH DATA FILE FOR THE REYNOLDS NUMBER 
CORRECTION ON DRAG COEFFICIENT. 

FILENAME !l:2):'D. ' 

FILENAME! 3: 4) : ACIN 
FILENAME! 5 : 8 ) : ' AREA ' 

OPEN! UNI T:l, STATUS: 'OLD '.USER:' BRAMAN'. FORM: 'FORMATTED', 
ft BLOCKED: . TRUE . , IOSTAT :I 1 , ERR:SOO. FILE FILENAME ) 

DO 1:1.5 

READ! 1,102) ! READ PAST BANNER 

END DO 
DO 1:1,9 

RE AD ! 1 , 200 ) NAME , WARE A ! I ) , LENGTH ( I ) 

END DO 

CLOSE ! UNIT : 1 ) 

TYPE *» ' UAREA: ' , WAREA 
TYPE *, 'LENGTH: '.LENGTH 
200 F ORMAT ! 2X. A8, 12X. F10. 4. 6X, F10. 4 ) 

OPEN AND READ AIRCRAFT GEOMETERY DATA FILE 

FILENAME ( 2 ! 3 ) : '4 . ' 

FILENAME ! 4 : 5 ) : ACIN 
FILENAME!6:8): 'DAT' 

OPEN! UN IT :4» USER : USERNAME « FILE:FILENAME> FORM: ' FORMATTED ' . 
ft BLOCKED:. TRUE. , I0STAT:I1, ERR:503) 

DO 1:1,5 

READ ! 4, 102 ) ! READ PAST BANNER 

END DO 
DO 1:1,40 

READ! 4. 996 ) NOTHING, GEOMETRY ! I ) 

END DO 

CL0SE!UNIT:4) 

X TYPE *. 'GEOMETRY: '.GEOMETRY 

S : GEOMETRY! 1) 

MAC : GEOMETRY! 10) 

HCGSTD : GEOMETRY! 26) 

ZCGSTD : GE0METRY127) 

HTAIL1 : GEOMETRY ! 28 ) 

ZTAIL1 : GEOMETRY ( 29) 

ZT : GEOMETRY! 30) 
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XRAMDRAG: 
ZRAMDRAG: 
ALAMDA : 
MAXN1 : 


GE0METRY(32> 

GEOMETRY (33) 

GEOMETRY ( 34 > *0 . 0 1 7453293 
GE0METRYO5) 


OPEN AND READ CL-DELTA ELEVATOR DATA PILE 


FILENAME! 1 ! 2) : 'D. ' 

PILE NAME (3:4) : ACIN 
PILE NAME (5:8) : ' CLDE ' 

OPEN ( UNIT :7. USER: 'BRAMAN * . PILE: FILENAME. PORM: 'FORMATTED ' » 
ft BLOCKED: . TRUE. * IOSTAT :H> ERR: 506) 

DO 1:1.5 

READ( 7 • 102 > t READ PAST BANNER 

END DO 
DO 1:1.50 

READ (7. *> END:666 )CLDE( I > 

' END DO 
666 CONTINUE 

CLOSE ( UNIT :7) 

TYPE *. 'CLDE: '.CLDE 

OPEN AND READ CL-IH DATA PILE 

FILENAME (5J8):'CLIH' 

OPEN ( UNIT:4. USER: 'BRAMAN' , PILE: FILENAME. PORM: 'FORMATTED' . 
ft BLOCKED: . TRUE. . IOSTAT: 1 1 . ERR:506 ) 

DO 1:1.5 

READ (4. 102 > ! READ PAST BANNER 

END DO 
READ ( 4. * ) N2 
CLIHC 1 ) :N2 
N3:N2+1 

READ (4, *) (CLIH( I ) , CLIH( I+N2) . I:2.N3) 

CLOSE (UNIT:4) 

TYPE *. 'CLIH: '.CLIH 

OPEN AND READ THRUST AND AIRFLOW DATA PILES 


FILENAME ( 2 ! 3) : ' 4 . ' 

FILENAME (4: 5) :ACIN 
FILENAME (6:8):' THR ' 

OPEN ( UNIT :9. USER: USERNAME. STATUS: 'OLD '. FORM: ' FORMATTED ' , 
ft BLOCKED:. TRUE. . IOSTAT : I 1 . ERR:S01 . FILE :FILENAME > 

C 

FILENAME (6!0):'AIR' 

OPEN (UN IT : 10. USER:USERNAME. STATUS: 'OLD' . FORM: 'FORMATTED' . 
ft BLOCKED: . TRUE. . IOSTAT: I 1 . ERR: 502 . FIL£:FILENAME ) 

C 

DO 1:1.5 


READ( 9. 102) 

! READ 

PAST 

BANNER 

END DO 




DO 1:1.5 




READ( 10. 102) 

! READ 

PAST 

BANNER 


END DO 
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102 FORMAT ( ' ') 

READ <9, 101. END: 103) ( THRUST < I) , 1:1. 1000) 

103 READ! 10. 101 . END: 104 ) (UA ( I ) . 1:1.1000) 

104 CLOSE (UN IT :9> 

CLOSE ( UNIT : 10 > 

TYPE *. 'TRUST: '.THRUST 
TYPE *. 'WA: ' . UA 

II FORHAT ( 5G15 . 7 > 

OPEN AND READ DATA FILE FOR PUSH PULL MANEUUER(CMDE. CPIQ) 

FILENAME ( 1 : 2 > : ' D. ' 

F ILENAME (3 : 4 > : AC IN 
FILENAME (5: 8) : 'CMDE' 

OPENC UNIT :5. USER: 'BRAMAN'. FILE :FILENAME. FORM: 'FORMATTED'. 

BLOCKED:. TRUE. . IOSTAT: I 1 . ERR:S04 ) 

DO 1:1.5 

READ ( S. 102 ) ! READ PAST BANNER 

END DO 
DO 1:1.50 

READ ( 5. * > END: 667 ) CMDE( I ) 

END DO 
CONTINUE 
CLOSE (UNIT:5) 

TYPE *, 'CMDE: '.CMDE 

FILENAME (5:8): 'CMQ ' 

OPEN ( UNIT:8. USER: 'BRAMAN FILE: FILENAME , FORM: ' FORMATTED' . 

BLOCKED:. TRUE. . IOSTAT: I 1 . ERR:505 ) 

DO 1:1.5 

READ (8. 102 ) ! READ PAST BANNER 

END DO 
READ ( 8. * ) N2 
CMQ ( 1 ) : N2 
N3:N2«-i 

READ (8. *> (CMQ (I ) . CMQ( I«-N2) . 1:2. N3> 

CLOSE ( UNIT :8 ) 

TYPE *. 'CMQ: '.CMQ 


CREATE FLIGHT TEST DATA FILE NAME AND OPEN MITH LOGICAL UNIT 'INP' 
11 TYPE ' 

TYPE *. 'INPUT FLT . 8 (999 IF NOT PERF FLT . ) > ' 

ACCEPT 999. FLIGHT 
IF(FLIGHT.EQ. '999') GO TO 2 
TYPE •. ' ' 

TYPE «. ' INPUT RUN B > ' 

ACCEPT 999. RUN 

FILENAME (1:2) :ACIN 
FILENAMEOJ4) : FLIGHT (2:3) 

FILENAME(6:7> :RUN 
FILENAMEC8:8):'A' 

DO 1:1,7 

FILENAME (5: 5) :MANEUUR( 1:1) 


S67 
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OPEN (UNIT: ' INP' . FILE: FILENAME, USER: USERNAME# STATUS: 'OLD' . 
fc FORM: 'UNFORMATTED'. BLOCKED:. FALSE. # IOSTAT :I1» ERR: 90 > 

K 1 : 1 

GO TO 91 

90 IF( II .EQ. 1Q)THEN 

CONTINUE 

ELSE 

GO TO 300 
END IF 
END DO 

IF NO DATA FOR THE SPECIFIED FLIGHT AND RUN CAN BE FOUND ON THE 
SYSTEM. NOTIFY THE USER AND RETURN TO THE FILE NAME INPUT( STATEMENT 11) 

TYPE 13. FLIGHT. RUN 

13 FORMAT t ✓» 5X» 'THERE HERE NO PERF. DATA FILES FOUND FROM FLT . 

&'. A3. 'FOR RUN ' > A2) 

GO TO 11 

THIS OPTION IS USED IF THE FTDB FILE NAME DOES NOT CONFORM TO THE . 
PERFORMANCE FILE NAMEING CONUENTION IN WHICH CASE THE FILE NAME 
IS INPUT MANUALLY 

2 TYPE *. ' ' 

TYPE *. 'INPUT FLIGHT TEST DATA FILE NAME > * 

ACCEPT 999, FILENAME 

OPEN< UNIT: ' INP ' , F I LE: FILENAME, USER :USERNAME, STATUS* 'OLD* * 

& FORM: 'UNFORMATTED ' , BLOCKED: . FALSE . . IOSTAT: II. ERR:92 ) 

GO TO 91 

92 IF ( I 1 . EQ . 10 ) THEN 

TYPE *,'****««* FTDB FILE NAME CAN NOT BE FOUND *******' 

GO TO 2 
END IF 

IFCI1.GT. 1 >G0 TO 300 

TEST FILESIZE OF THE FTDB FILE AND CALC. FILESIZE FOR PERF. FILE ONE 

91 INQUIRECUNIT: ' INP', USER: USERNAME , FILESIZE:FILESIZ) 

WRITE ( 'UT', 1000)ESC, CLEAR 

TYPE *, ' ' 

TYPE IB. FILENAME 

TYPE «, ' FILESIZE : '.FILESIZ 

IDENTIFY THE STARTING AND ENDING BLOCK NUMBERS TO BE PROCESSED 
10 TYPE 100 

100 FORMAT (5Cs ) » '#'» 5X, ' INPUT STARTING BLOCK NUMBER > ') 

ACCEPT *, N 
TYPE l 10 

110 FORMAT<#'» 'S'.SX, 'INPUT ENDING BLOCK NUMBER OF FLT DATA BASE > ') 
ACCEPT »,N! 

FILESIZ : AN I NT ( ( FLOAT < Nl-N) /%. ♦ . 5 ) ) 

CREATE PERFORMANCE DATA FILE ONE 
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WRITE' * UT ' , 1000)ESC, CLEAR 
14 IF (FLIGHT . EQ. * 999 ') THEN 
TYPE *. ' ' 

TYPE *. 'INPUT PERFORMANCE FILE 111 FILENAME > ' 

ACCEPT 999. FILENAM1 
ELSE 

TYPE »>, ' INPUT PERF. FILE It <I.E. 1.2,3...) > * 

ACCEPT 999. F ILENUM 
TYPE 12 

12 FORMAT (2(^)»'*'.1SX»* INPUT CONFIGURATION CODE :'./» 

t 20X, 'CODE' . 10X. 'GEAR'. 10X. 'FLAP (DEG) '. / . 

ft 22X. '6'. 13X. 'UP'. 1SX. '0 '»✓, 

ft 22X. ’7 ’ » 15X, 'UP ' » 15X, ’ 9 ' . 

ft 22X. '8'. 13X. ’ DN' . 15X. ' 8 ' » ✓» 

ft 22X. ’9',15X. 'DN'.ISX. '40'./'. 

ft 22X. 'O', 15X. 'UP'. 15X. '0 SPOILER EUAL <FLT. 351)', 

ft 20X. 'CODE > ') 

ACCEPT 999, CONFIG 
TYPE *. ' » 

TYPE INPUT DATA SEGMENT CI.E. A.B.C,...) > ' 

ACCEPT 999. SEGMENT 
DO 1=1.6 

IF ( FLIGHT. EQ. ALLFLTt I ) ) THEN 
K3:I 

GO TO 17 
END IF 
END DO 

17 FILENAMICl: 1> = 'Q' 

FILENAMl (2:2) =F ILENUM 
FILENAM1 < 3: 3) rCONFIG 
FILENAMl < 4: 4) =FLTC0DE(K3:K3) 

FILENAMl (3:6) rRUN 
FILENAMl (7:7) =MANEUUR<K1:K1 ) 

FILENAMl (9:9) iSEGMENT 
TYPE 19. FILENAMl 
END IF 

OPEN PERFORMANCE FILE ONE 

OPEN < UNIT: 'OUT ' , STATUS: 'NEW ' , USER: ' BRAMAN' . FORM: 'UNFORMATTED ' , 
ft BLOCKED:. TRUE. . FILErFILENAMl . 10STAT = 12. ERR = 301 , 

ft FILESIZE:FILESIZ, ACCESS:. 'DIRECT ' .RECL=240, CLEAR:. TRUE. ) 

GO TO 4 

01 IF( 12. GT . 1 )G0 TO 997 
IF ( 12 . EQ . 1 ) THEN 
WRITE' 'UT', 1000)ESC, CLEAR 
TYPE 998 
GOTO 14 
END IF 


START CALCULATIONS 
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C READ FLIGHT TEST DATA FILE 
C 

4 RECDrl 

IBLK=0 

TYPE 'START CALC.' 


C 

C SUBROUTINE "QRANDIN" IS A SYSTEM LIBRARY ROUTINE. EACH TIME CALLED 
C “QRANDIN" WILL READ ONE BLOCK OF DATA INTO ARRAY “A“ . HERE A 
C BLOCK OF DATA IS DEFINED AS ONE TIME SLICE OF DATA CONSISTING OF 
C 193 VARIABLES. THE PROGRAM GETS THE NEM VALUE OF EACH OF ITS 56 
C VARIABLES THROUGH THE EQUIVALENCE STATEMENT AT THE VARIABLE 
C DECLERATION STATEMENT. 

C 

DO 5000 KzN.Nl 

130 CALL QRANDIN ( INPFCB» A> 193. K ) 

130 CALL QRISTAT C INPFCB* I ST AT » I COUNT ) 

IF< ISTAT.EQ. 1) THEN 
CALL GRIOWAIT< INPFCB) 

GO TO 130 
END IF 

IF(A(2).EQ. 600) GO TO 190 
C 

ALPHA: ALPHAC*. 017453393 
BETA : BET AV». 017453293 
C 

C CALCULATE HIND AXIS LOAD FACTOR 
C 


ANXU: ANXC*COS ( ALPHA > *COS ( BETA ) -ANZC»SIN< ALPHA ) *COS < BETA) 

& -ANYC*SIN( BETA > fEQ.B 13D 

ANZH:ANXC*SIN( ALPHA ) *-ANZC*COS (ALPHA) fEQ.B 13D 

C 

C CALCULATE TOTAL THRUST PARAMETERS AND AVERAGE RPM< THRUST IN LBS) 

C 

FGTOT :FGR+FGL fEQ.lt 14D 

FRT OT :FRR+FRL fEQ.B 15D 

UFTOTcUFR+WFL fEQ.B 30D 


C 

C CALCULATE TOTAL AIRFLOW IN LBS^HR 
C 

WATOT=AFR+AFL fEQ.B 49D 

C 

C CONVERT X RPM TO RPM AND AVERAGE LEFT AND RIGHT ENGINE 
C 

AN1R = AN1R*MAXN1 /'100. 

AN1L:AN1L*MAXN1 ✓lOO. 

AN2L : AN2L*29692 . /'100. 

AN2R:AN3R*29693. ✓ lOO. 

AVRPMl: ( AN1R+AN1L) /3. fEQ.B 160 

AVRPM3: (AN2R>AN2L>/3. fEQ.B 17D 

C 

C CALC Q-BAR 
C 

QBARS: (1.4 *DAT*2116.22*S»(AMCT««3) >'3. fEQ.B 1BD 

QBARzQBARS'S 


C 
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THE AIRCRAFT DRAG COEFFICIENT CAN NOW BE CALC. 

16 CD:<FGTOT*COS( ALPHA ♦ALAMO A ) -FRTOT-WT»ANXW ) /QBARS fEQ.lt 190 

CALC. REYNOLDS NUMBER CORRECTION FOR CD 


CALL REYNOLDS ( CD. CDS. AMCT . TATK, THAT. DAT) 

THE POWER OFF LIFT COEFFICIENT (NOT CORRECTED) WELL BE 

CL AC: ( WT*ANZW -FGTOT*SIN < ALPHA+ALAMDA ) )/0BARS fEQ.lt 200 

CALC. UNTRIMMED LIFT COEFFICIENT <DE:IH:0> 

L1:L2:L3:0 

CALL TLU2CCLDE. AMCT.QBAR.CLDE1.L1.L2) 

CL DEI: CL DE 1^57. 3 

CALL TLUKCLIH, AMCT.CLIH1.L3) 

CLIH1:CLIH1/S7. 3 

CLIHDE02:CLAC-CLDE1*DLT£-CLIH1*DLTS 

CORRECTING LIFT COEFFICIENT (CLAC) FOR THRUST MOMENT EFFECTS 

ALL UARI ABLIES AND METHODOLOGY HAUE BEEN DEFINED IN KU REPORT 
KU-FRL-5770-1 


HCG:XBAR^ 12 . . 

ZCG:ZBAR/12. 

DCGH sHCG-HCG STD 

DCGU:ZCG-ZCGSTD 

XI : XRAMDRAG-DCGH 

Z1:ZRAMDRAG-DCGU 

HR:Z1*C0S( ALPHA ) -XI *SIN< ALPHA) 

A1:SGRT(DCGH**2*DCGU**2) 

GAMMA: AT AN2 ( ABS ( DCGU^DCGH) ) 

IF ( DCGH .GE.O)THEN 

ZTHRUST :ZT-A1*SIN< ALAMDA+GAMMA) 

END IF 

IF ( DCGH . LT . 0 ) THEN 

ZTHRUST :ZT+A1*SIN< GAMMA+ALAMDA ) 

END IF 

XTAIL:HTAIL1-DCGH 

ZTAIL:2TAIL1-DCGU 

LT :XTAIL*COS< ALPHA) ♦ZTAIL*SIN< ALPHA ) 


fEQ.it 10D 
fEQ.lt 1 ID 
IEQ.it 32D 
IEQ.lt 33D 
!EQ.it 34D 
IEQ.it 35D 
IEQ.it 36D 


•EQ.lt 39D 
•EQ.lt 40D 
IEQ.it 41D 


THE CHANGE IN LIFT COEFFICIENT DUE TO THRUST IS: 

DCLT: (FGT0T*2TRUST-FRT0T«HR)/'LT^QBARS fEQ.lt 42D 

THE AIRCRAFT LIFT COEFFICIENT CORRECTED FOR THRUST MOMENT EFFECTS 
BECOMES: 


C 


CLTAC :CLAC+DCLT 


•EQ.it 43D 


271 



uuu UOO UOO 0 0 0<J<J0U<J0 OOOO ouu ooo 


CORRECTING LIFT COEFFICIENT FOR C.G. POSITION 

Z=HTAIL1*C0S( ALPHA )+ZTAILl*SIN (ALPHA) ! EO.it 

DCG:Z-LT !E0.lt 

DCLCG = -(CLTAC«OCO)/(LT4-OCO) IEO.H 

DELTA CG CORRECTION FOR POWER OFF CL WELL BE : 

DCLCG2 = ( CLAC*DCG) / 1 LT-t-DCG) 

THE TOTAL STEADY-STATE POWER OFF LIFT COEFFICIENT WILL BE: 

CLS=CLTAC+DCLCG !EQ.H 

THE STEADY STATE POWER OFF LIFT COEFFICIENT WILL BE: 
CLSCG=CLAC+DCLCG2 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

* 

* CALCULATE ALL REHAINING VALUES FOR DATA FILE NUMBER ONE 
« 

aaaaaaaaaaaaaaaaaa&aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


CORRECT RPM 


CRPM1 sAURPMl/'RTHTZT IEQ.it 

CRPM2=AVRPM2^RTyT2T ! EQ. it 

CALCULATE CORRECTED ENGINE PARAMETERS 

CALL RECOVERY ( CRPMl.PRF) 

DT2ENGsPRF»DLTT2 iEQ.it 

CFG = FGT0T*'DT2ENG iEQ.tt 

CWA = < WAT0T*RTHT2T )/’DT2ENG ! EQ. it 

CFFs WFTOT/ (RTHT2T*DT2ENG ) 

UFROOTTZ=WFTOT'RTHT2T 

WODiWT/'DAT iEQ.lt 

TT5: CTT5L*TT5R)/’2 

CTT5:TT5/'(RTHT2T«*2) 


CONVERT KNOTS TO FT/SEC 

VTT rUTT»I . 689 
VTS=VTS*1.689 

TEST FOR MANEUVER TYPE AND CALL PROPER SUBROUTINE 

GO TO (21>21>23»22>21)K1 

21 CALL HE DOT ( ICNT» HCT * VTT. ANXW» TATK» TASK) 

CD_E= <FGTOT*COSCALPHA+ALAMDA)-FRTOT-(WT*HDOT)JVTT)^OBARS ! EQ 
GO TO 24 

22 CALL STAB < WF TOT * VTT / WT / DAT > 

GO TO 25 

23 CALL PUSHPULL ( Q» CLTAC# CDS/ AMCT # CMDE» CHQ. CLDC • VTT# DCG. XBAR ) 


44D 

45D 

46D 


47D 


26D 

48D 


2BD 

29D 

50D 


25D 
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GO TO 23 

24 CALL C0NUEN(RTHT23* RTHT2T*UTS»UTT» TASK# TATK> DT2ENG.AMCT # WT > 


m 

* CREATE DATA FILE NUMBER ONE 

* 


STUF CALC 

DATA INTO ARRAY 

"B # 

' FOR RANDOUT WRITE 


B( 1 ) : 

ESB . 

; 

PILOTxENGINEER EUENT 


B ( 2 ) : 

ASB1 

i 

AIRCRAFT STATUS BYTE 


B(3) = 

TIME 

i 

TIME 


B( 4 > : 

AMCT 

i 

MACH NUMBER 


B(5>: 

HCT 

i 

PRESSURE ALTITUDE 

(FT) 

B ( 6 ) : 

ALPHAC 

i 

CORRECTED ANGLE OF ATTACK 

(DEG) 

B( 7 ) : 

BETAU 

; 

SIDE SLIP ANGLE 


B ( 8 ) : 

CD 

j 

A/C DRAG COEFFICIENT 


B ( 54 ) : 

CDS 

i 

CORRECTED FOR REYNOLDS NUMBER 

B ( 9 ) : 

CLS 

i 

CORRECTED FOR THRUST MOMENT AND 




C.G EFFECTS 


BC 10): 

, CLAC 
CLSCG 

i 

POWER OFF LIFT COEFFICIENT 


B(ll): 

i 

CORRECTED FOR OFF STD. C.G 

. ONLY 

B( 12): 

CLIHDEO 

i 

UNTRIMMED CL (CLDE^CLIH PREDICTED) 

B( 13): 

CLIHDE01 

! 

UNTRIMMED CL ( CLDE/'CLIH MMLE UALUES) 

BC 14) : 

CLIHDE02 

! 

UNTRIMMED CL ( CLDEsCLIH MMLE FROM 




LEAR 35) 


BC15): 

AURPM1 

j 

AUERAGE N 1 RPM 


B ( 16 ) : 

AURPM2 

( 

AUERAGE N2 RPM 


BC17): 

CRPM1 

i 

CORRECTED AUERAGE N1 

(RPM) 

B ( 18 > : 

CFO 

! 

CORRECTED GROSS THUST 

(LBS) 

B ( 1 9 ) : 

CFF 

f 

CORRECTED FUEL FLOW 

(LBS'HR) 

B ( 20 ) : 

CWA 

! 

CORRECTED AIR FLOW 

(LBS/'HR ) 

BC21): 

WFR00TT2 

i 

FUEL FLOW/'ROOT THETA-T2 

(LBS/HR) 

B ( 22 ) : 

CTT5 

t 

CORRECTED TURBINE TEMP. 

(DEG C) 

8(23): 

ANXW 

i 

WIND AXES X ACCELERATION 

(G'S) 

BC24 ) : 

ANZM 

f 

WIND AXES 2 ACCELERATION (G'S) 

B (25 ) : 

UTT 

j 

TRUE UELOCITY 

(FTxSEC) 

B (26 ) : 

UOD 

i 

WEIGHT/ - DELTA 

(LBS) 

B ( 27 > : 

WT 

• 

A^C WEIGHT 

(LBS) 

B ( 28 ) : 

QBARS 

i 

DYNAMIC PRESSURE « WING AERA (LBS) 

B ( 29 ) : 

TATK 

t 

AMBIENT TEMP. 

(DEG K> 

BOO): 

RTHT2T 

| 

SQUARE ROOT THETA-T2 


B( 3 1 ) : 

DLTT2 

i 

CORRECTED PRESSURE RATIO 


B (32 ) : 

XBAR 

i 

BODY AXIS X C.G. POSITION 

(INCHES) 

8(33): 

YBAR 

! 

BODY AXIS Y C.G. POSITION 

(INCHES) 

B( 34 ) : 

ZBAR 

i 

BODY AXIS Z C.G. POSITION 

(INCHES) 

BOS): 

DLTS 

i 

STABILIZER POSITION 

(DEG) 

B( 36 > : 

DLTE 


ELEUATOR POSITION 

(DEG) 


GO TO ( 30 » 30 » 50.40. 30 )K1 
ADD DATA TO FILE 1 FOR ACCEL'' DECCEL 
30 B(37): PS ! SPECIFIC EXCESS POWER (FT^SEC) 
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B< 38 ) = 

HDOT 

B( 39 ) : 

RERR 

B( 40) = 

CD_E 

GO TO 60 



• RATE OF CHANGE IN ENERGY HEIGHT 
(FT/'SEC) 

! RELATIVE ERROR 
! CO CALC. FOR HOOT 


ADD DATA TO FILE I FOR STABILIZED PIONTS 


40 B<41 )s RF 

B ( 42 ) s SR 

B ( 43 ) - SRP 

GO TO 70 


! RANGE FACTOR (FT) 

! SPECIFIC RANGE (NMPP) 

•SPECIFIC RANGE PARAMETER (NM) 


ADD DATA TO FILE 1 FOR PUSH PULL 


SO B(44 ) s CLS4 

Bt 43) = CDS4 

B<6> s CALPHA 

GO TO 70 


•LIFT COEFF. CORRECTED FOR RATES 
•DRAG COEFF. CORRECTED FOR RATES 
•ALPHA CORRECTED FOR RATES 


ADD DATA TO FILE 1 FOR CONVENTIONAL 


60 

B ( 46 ) = 

RCSTD(l) 

•STD 

WT : 12000 

(FT^SEC) 


B ( 47 ) s 

RCSTD<2) 

•STD 

WT s 14500 

( FT/’SEC) 


B( 48 ) s 

RCSTDO) 

! STD 

WT = 17000 

(FTxSEC) 


B<49)= 

UTS 

•STD. 

TRUE UELOCITY (KNOTS) 


B(50)= 

HCS 

! STD . 

PRESSURE 

ALTITUDE (FT) 


B ( 51 ) s 

TASK 

! STD. 

AMBIENT TEMP (DEG. K) 


B(52)s 

OCS 

•STD. 

COMPRESS. 

Q (LBS'F«*2) 


B<53) = 

PAS 

•STD. 

AMBIENT PRESSURE (LBS/FTs*2 

70 

CONTINUE 






WRITE ALL DATA FOR THIS TIME SLICE TO PERFORMANCE FILE ONE 
WRITE< 'OUT ’ » RECsRECD ) B 

INCREAMENT INPUT AND OUTPUT FILE COUNTERS AND BEGIN PROCESSING 
ON NEXT TIME SLICE. 


RECD:RECD+ 1 
IBLKsIBLK+1 
5000 CONTINUE 
1000 FORMAT ( IX, 2A1) 

150 FORMAT (16G10.3) 

180 TYPE 181 . FILENAM1 

181 FORMAT (5X. 'PROGRAM START HAS BEEN COMPLETED SUCCESSFULLY AND ' » / • 
& ' DATA FILE ONE HAS BEEN CREATEO BY THE NAME) ' . AS ) 

TYPE «» ' ' 

TYPE *» ' DO YOU WISH TO PROCESS ANOTHER FLT/'RUN (Y^N) > ’ 

ACCEPT 999. C 
IF ( C . EQ . ' Y ' ) THEN 

WRITE < 'UT', 1000JESC. CLEAR 
CLOSE(UNITs’INP') 

CLOSE ( UNIT :4 ) 

CLOSECUNIT:!) 
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CLOSE ( UNIT :S) 
CLOSE (UNIT :9) 
CLOSE (UNIT 18 ) 
CLOSE ( UNIT: 10) 
CLOSE (UNIT 2 'OUT ' ) 
CLOSE ( UNIT :7 ) 


GO TO 11 
END IF 



CALL 

EXIT 





300 

TYPE 

CALL 

*. ' mm 

EXIT 

ERROR 

IN 

OPEN 5 

**'.11 

302 

TYPE 

CALL 

*» '** 

EXIT 

ERROR 

IN 

READ 5 

**'.11 

303 

TYPE 

CALL 

«> '*i 

EXIT 

ERROR 

IN 

NAMELIST READ **'>18 

SOO 

TYPE 

CALL 

*. ’** 

EXIT 

ERROR 

IN 

OPEN It 

1 **'.11 

501 

TYPE 

CALL 

», • mm 
EXIT 

ERROR 

IN 

OPEN a 

9 **'.11 

502 

TYPE 

CALL 

*. '** 
EXIT 

ERROR 

IN 

OPEN tt 

10 **'.11 

503 

TYPE 

CALL 

m. 'mm 
EXIT 

ERROR 

IN 

OPEN 4 

**'.11 

504 

TYPE 

CALL 

*. 'mm 
EXIT 

ERROR 

IN 

OPEN -5 

**’>11 

505 

TYPE 

CALL 

m. 'mm 

EXIT 

ERROR 

IN 

OPEN 8 

**’>11 

506 

TYPE 

CALL 

*/ 'mm 
EXIT 

ERROR 

IN 

OPEN 7 

**’.11 

507 

TYPE 

CALL 

*, '** 
EXIT 

ERROR 

IN 

OPEN 4 

(CLDE) **'.11 

508 

TYPE 

CALL 

m, 'mm 

EXIT 

ERROR 

IN 

OPEN 4 

(CLIN) **'.11 

997 

996 

TYPE *. '** 
CALL EXIT 
FORMAT < A4B. 

ERROR 
» F15. 6) 

IN 

OPEN 6 

**’. 12 

998 

999 

FORMAT < z'. 5X> '*** 
FORMAT ( A ) 

FILE NAME 

ALREADY EXISTS 

18 

FORMAT ( 6 X> 
END 

'FILENAME 

s ’ > AS, 

./■) 
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C.3.1.1 PUSHPULL 


PURPOSE : 

This subroutine, called by START, wasused to reduce the 
push-over, pull-up, push-over maneuvers to coefficient form. 


APPROACH : 

The routine corrected for aircraft angular rates encountered 
throughout the maneuver as discussed in Section 3.2.3 
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** 
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0/S 
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COMPILER 

ANSI-77 STANDARD FORTRAN (F0RT77) 
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I 

— I 

I 

— I 

— I 



1 PRO 

1 VER/REV 

I NAME 

I DATE 

I 



I 

--I 

I 

I 

— 1 



I 

I 1/0 

I KEITH BRAMAN 

I 12/15/821 


3ft* 

I 

" _I 

I 


--I 

** 


SUBROUTINE PUSHPULL (Q, CLS. CDS/ AMCT » CMDE, CMQ. CLDE1 . UTT. DCS/ XBAR) 

THIS SUBROUTINE IS USED TO REDUCE THE PUSHPULL MANUEUERS 
TO COEFFICIENT FORM. IN THIS ROUTINE THE AIRCRAFT PITCH RATE 

IS TAKEN INTO CONSIDERATION. 

COMMON/GEOM/ ALPHA, ALAMDA/ QBARS, S, MAC/ WAREA* LENGTH 
C0MM0N/0UT4/CLS4, CDS4 
REAL*4 CMDE C 1 ) . CMQ ( 1 ) , CLDE 1 ( l > , MAC 

ALL RATES AND ANGLES ARE IN DEGREES IN THE CALC. 

J:Jl:Ll:L2:L3sL4=0 
QBAR r QBARS /S 

CALL TLU2 ( CMDE , AMCT, QBAR/ CMDE1 . L3/ L4 ) 

CALL TLUKCMQ, AMCT.CMQl, Jl) 

CALL TLU2 ( CLDE1 » AMCT/ QBAR, CLDE01. LI/ L2) 

CMDElrCMDEl/57.3 
CMQ I : CMQ I •'57 . 3 
CLDEOl :CLDE01/57. 3 

CALC. CMQ-DOT 

CMQDOT = CMQ1 
QDOTrO. 

CDDE :0 . 

DELMCG = -CLT AC* QBAR »DCG 

CALC. DELTA DELTA ELEVATOR 

DDE = < CMQDOT *0* MAC) /(CMDE1»Z*VTT ) 

C »-(IYY*ODOT)/(QBARS*MAC*CMDEl> 

C fc-(DELMCG)/( Q BARS* MAC* CMDE 1 ) 

C 

C THE CORRECTED LEFT AND DRAG COEFFICIENTS BECOME: 
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DC L DEO l =CLDE01 *DDE 
DC DDE :C DDE* DDE 

CLS4:CLS+DCLDE01 

CDS4=CDS*DCDDE 

RETURN 

END 
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C.3.1.2 STAB 


PURPOSE : 

This subroutine, called by START, calculated the performance 
parameters associated with a stabilized speed-power test 
point . 


APPROACH : 

This routine simply passed aircraft fuel flow, weight, true 
velocity, and ambient pressure ratio and calculated Range 
Factor (RF), Specific Range (SR), and Specific Range Parameter 
(SRP). 


/ 
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C *> 

C * 

C * 

C * 

C * 

C * 

C * 

C * 

C * 

C « 

C * 

c * 

c * 

c « 

c * 

c * 

c * 

c * 

C ***************************** *********************************** 

C 

SUBROUTINE STAB( WFTOT » VTT, UT , DAT) 

C0MM0Nx0UT2/'RF, SR. SRP 

THIS SUBROUTINE CALCULATES THE 
STABILIZED POINT PERFORMANCE PARAMETERS 

CALCULATE RANGE FACTOR 

RF : < VTT*WT ) /'WFTOT^l . 889 

CALCULATE SPECIFIC RANGE 

SR5<UTT)^UFT0T^1 .689 

CALCULATE SPECIFIC RANGE PARAMETER 

SRP= (UTT*DAT)/-WFTOT/l . 689 
RETURN 
END 


ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHOR 

COMPUTER 

OxS 

COMPILER 


UNIUERSITY OF KANSAS CENTER FOR RESEARCH INC. 


STAB 

BRAMAN , KEITH 
SEL 32'77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN 


(F0RT77 ) 


REVISIONS 

I 1 1 1 

I PRtt I UERXREU I NAME I DATE 

I 1 1 1 

I I I/O I KEITH BRAMAN I 2S12/B3 

I 1 1 1 
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C.3.2 MFIT 


PURPOSE: 

This program plotted time varying performance data against 
Mach number and generated a second and third order orthoganal 
ploynomial through the data. 


APPROACH: 

The program read START output files and created performance 
file A. These files were manually built by the user of MFIT 
for every cardinal Mach number. The user had two options in 
building A files. The first was to simply use the calculated 
value at a cardinal Mach number of either the second or third 
order curve fit. The second allowed the user to manually 
interpolate a value for a particular Mach number and input 
that number to the A file. This program was considered pro- 
prietary to Kohlman Systems Research. For this reason a listing 
is not presented. 
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C.3.3 XPLOT 


PURPOSE: 


APPROACH 


This routine cross plotted any parameter in performance file 
A to any other parameter of that file by any combination of 
Mach or power setting. 


This program was simply a file manipulation and plotting routine. 
This routine was considered proprietary to Kohlman Systems Research 
and for this reason a listing is not presented. 
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C.4 CRUISE AND TRAJECTORY MODELING 


This area consisted of two main programs, ITERATE and MODEL. 

Program ITERATE was use to predict the cruise performance of the modeled 
aircraft. Its description an approach can be found in section 3. 2. 4.1. 
The second program, MODEL, was a trajectory following routine which 
was modified from the Air Force Flight Test Center's Digital Performance 
Simulation program. Due to the volume and the proprietary nature of this 
routine, the listing is not included. However, two routines were 
written which describe the baseline aerodynamic and engine charac- 
teristics to MODEL (DRAGA AND THRUST). Their description and listing 
are included. 


0 
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C.4.1 ITERATE 


PURPOSE : 

This program was developed to calculate steady-state, constant- 
weight pressure ratio cruise performance from aircraft engine/ 
aerodynamic characteristics generated from flight test quasi 
steady-state maneuvers. 


APPROACH : 

Since steady-state performance parameters cannot be explicitly 
solved for, it was necessary to develop an iterative routine 
which would converge upon the steady-state solution. This 
routine iterates on lift coefficient to obtain the steady- 
state values of Cp, C^, F , F N , ALPHA, RF, SR, SRP, and 
at a constant weight/pressure ratio for the entire Mach envelope 
Section 3. 2. 4.1 presents an expanded description of this program 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


organization: university or Kansas center tor research inc. 

PROGRAM : r.ITERAT (ITERATE) 

SUBROUTINE : RECOUERY / REYNOLDS / STAB / TABINT 

AUTHOR BRAMAN , KEITH 

COMPUTER : SEL 32/77 

O/S : M.P.X. 1.3 

COMPILER ANSI-77 STANDARD FORTRAN (F0RT77) 

REVISIONS 


I PRtt I UER/REU I NAME I DATE 

I 1 1 1 

I I I/O I KEITH BRAMAN I 6/17/83 

I 1 1 1 


PROGRAM ITERATE (ITERAT) 

BY: 

KEITH BRAMAN 
TOM YECHOUT 

THIS PROGRAM ITERATES ON LIFT COEFFICIENT TO OBTAIN 
STEADY STATE VALUES OF CORRECTED RPM , RF, SR. SRP, CL» CD 
FG. WA. AND UF AT UARIOUS UEIGHT/DELTA RATIO 


C*******«**************«********«***«***«*«*«*«***K*«********«** 
PROGRAM INPUT: 


i:FOUR-D TABLE LOOK-UP FOR DRAG COEFFICIENT AS A FUNCTION 
OF POWER . MACH. AND ALPHA (FOR MACH tt LESS THAN OR 
EQUAL TO 0.60) 

2: TUO-D TABLE LOOK-UP FOR DRAG COEFFICIENT AS A FUNCTION 
OF MACH AND ALPHA (FOR MACH tt GREATER THAN 0.60) 

3: TUO-D TABLE LOOK-UP FOR ALPHA AS A FUNCTION OF POWER 
AND LIFT COEFFICIENT FOR MACH tt LESS THAN 0.65 

4 : TWO-D TABLE LOOK-UP FOR ALPHA AS A FUNCTION OF MACH 
AND LIFT COEFFICIENT FOR MACH tt GREATER THAN 0.65 

5: FLIGHT TEST ENGINE GROSS THRUST MODEL 
(AS A FUNCTION OF MACH AND RPM ) 

6: FLIGHT TEST ENGINE AIRFLOW MODEL 
(AS A FUNCTION OF MACH AND RPM ) 

7 : FLIGHT TEST FUELFLOU ENGINE MODEL 
(AS A FUNCTION OF MACH AND RPM) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


9: POWER or DELTA CORRECTION TOR FUELFLOW 
(AS A FUNCTION OF MACH It) 

9: FLIGHT TEST ENGINE RPM MODEL 
(AS A FUNCTION OF GROSS THRUST) 

10: AIRCRAFT GEOHETERY DATA 

INPUT VARIABLES: 

THE ITERATION ROUTINE IS STARTED AT 
SOHE KNOWN STEADY STATE TEST POINT WERE THE 
FOLLOWING VALUES ARE KNOWN. 

1 : RPM (Nl) 

2: WEIGHT OVER DELTA -W^D- 
3: BEGINNING MACH NUMBER 
5: THETA 
6: DELTA 

7 : HORIZONTAL C.G. DELTA 
0: VERTICAL C.G. DELTA 

OUTPUT VARIABLES'. 

STEADY STATE VALUES FORJ 
1 :RPM 
2: CL 
3: CD 

4:FG (GROSS THRUST) 

5 : WA (AIRFLOW) 

6:WF (FUELFLOW) 

7 : RF (RANGE FACTOR) 

8: SR (SPECIFIC RANGE) 

9: SRP (SPECIFIC RANGE PARAMETER) 


** ( RPM ) «* 
** ( WOD ) ** 
** ( AM ) ** 
»*( THETA ) ** 
•■•(DELTA)** 
**( DCGH) ** 
** ( DCGV)** 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS PROGRAM MAS DEVELOPED TO CALCULATE STEADY-STATE . CONSTANT- 
MEIGHT PRESURE RATIO CRUISE PERFORMANCE FROM AIRCRAFT ENGINE/ 
AERODYNAMIC CHARACTERISTICS GENERATED FROM FLIGHT TEST QUASI STEADY 
STATE MANEUVERS. SINCE STEADY-STATE PERFORMANCE PARAMETERS CANNOT 
8E EXPLICITLY SOLVED FOR. IT MAS NECESSARY TO DEVELOP AN ITERATIVE 
ROUTINE WHICH WOULD CONUERGE UPON THE STEADY STATE SOLUTION. THIS 
ROUTINE ITERATES ON LIFT COEFFICIENT TO OBTAIN THE STEADY-STATE 
VALUES OF CD. CL. FG.FN.FR. ALPHA. RF. SR. SRP. AND N1 AT A CONSTANT 
UEIGHT/PRESURE RATIO FOR THE ENTIRE MACH ENUELOPE. 

( "X’S" IN THE FIRST COLUMN ARE EXECUTABLE STATEMENTS DURING 
PROGRAM DEBUGGING) 


CHARACTERS AAA 
CHARACTER'S FILENAME 
INTEGER*! FRMFD/2Z0C/ 


REAL MAC . LT. KK» UAREA( 9 ) . LENGTH (9 ) . NCURUt SO ) 


& 

& 

& 

& 


COMMON/GEOM/ALPHA, ALAMDA.QBARS.S. MAC. WAREA. LENGTH 
C0MM0N/0UT2/RF. SR. SRP 

DIMENSION CRPMC 100 ) . C ALPHA ( 100) . CCL( 100) . CCD< 100 > . 

CCLAC ( 100 ) . CM Cl 00 ) . CRF ( 100 ) . GEOMETRY < 40 ) . 
CFG ( 100 ) . CWA ( 100 ) . CWF ( 100 ) 

DIMENSION C0RRPH(300> ,WA( 300). FFL( 350). CDARRAY( 1150). 

CLPOWER ( 120) . CLMACHf 120) . CSR C 100 ) . CSRP ( 100) 
ANEWCDC500) 


OPEN PRINTER OUTPUT FILE 
OPEN (UNIT s 'UT ' > 

OPEN ( UNIT :6.FILEs'SL0'. SPOOLFILE: . TRUE. . USER= ' BRAMAN' . 
& IOSTAT: 14. BLOCKED: . TRUE. . FILES IZE= 100. 

& ERR:304> 

IF(I4.GT.O) CLOSE (UN IT :6 > 

TYPE *.' DO YOU WISH A HARD COPY ? Y/N > ' 

ACCEPT 999. AAA 
IFCAAA.EQ. ' Y ' ) THEN 
IXXX: 6 
ELSE 

IXXX:3 

2 TYPE *. ' OUTUT FILE NAME > ' 

ACCEPT 999. FILENAME 

OPEN DISC OUTPUT FILE 

OPEN( UNITs 3. FILE: FILENAME. USERs ' BRAMAN' . STATUS: 'NEW' . 

8. FORMS 'FORMATTED'. BLOCKED:. TRUE. . IOSTATs I 15. ERR:92. 

& FILESIZEsSO) 

GO TO 91 

92 IFCI15.EQ. 10)THEN 

TYPE *,'***•»** FILE NAME ALL READY EXISTS **«**•*' 
GO TO 2 
END IF 

IF ( I 1 5 . GT . 1 ) GO TO 505 
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END IF 


OPEN AND READ WETTED AREA/’LENGTH DATA 

II FILENAME ( 1 : 2 ) s ' D. ' 

FILENAME(3.‘4)s'L3' 

F ILENAME 1 5! 8 > s ' AREA' 

OPEN (UNITs 1 , STATUSs 'OLD' . USERs ' BRAMAN' » FORMs ' FORMATTED ' . 

8 BLOCKEDs . TRUE. # IOSTATs II . ERRsSOO, FILEsFILENAME ) 

DO I si , 5 

READC 1/102) ! READ PAST BANNER 

END DO 
DO Isl.9 

READ ( 1 , 200) NAME. MAREA ( I ) . LENGTH ( I ) 

END DO 

CLOSE (UNIT si) 

TYPE *. 'WAREAs '.MAREA 
TYPE *. 'LENGTHS '.LENGTH 

OPEN AND READ POWER OF DELTA CURUE FOR FUELFLOW CORRECTION 

OPEN ( UNIT sl7 , STATUSs ' OLD * . USER s * LEAR35 ' . FORMs 'FORMATTED ' . 

& BLOCKEDs . TRUE . .FILE: ' D4 . L3NNN ' » I OST AT s 1 1 , ERR s 5 1 3 ) 

DO I si. 5 

READ( 17.510) 

END DO 

>10 F ORMAT ( ' ') 

DO 1 s 1 . 17 

RE AD ( 1 7 . * ) NCURU ( I ) , NCURU ( 1+17) 

END DO 

CLOSE ( UNIT s 17 ) 

OPEN AND READ RPM US THRUST TABLE 
COPRPM sO. 

OPEN ( UNI TsB. FILES 'D.CRPM48'. USERs 'BRAMAN '.FORMS 'FORMATTED'. 
» BLOCKEDs . TRUE . . IOSTAT sI6. ERR=400) 

READ (8.1 000. ENDs402 ) ( CORRPM ( I ) . I s 1 . 300 ) 

>02 CLOSE ( UNIT s8 ) 

TYPE *. 'THRUSTs '.CORRPM 

OPEN AND READ AIRFLOW TABLE 


WAsO. 

OPEN < UNIT s9. FILEs ' AIRFL048' . USERs 'BRAMAN ' , FORMs 'FORMATTED ' . 
& BLOCKEDs . TRUE. . I0STATsI7. ERR=401 ) 

READ (9. 1 000. ENDs 404 ) ( MA( I > > I s 1 . 300) 

04 CLOSE (UNIT s9) 

TYPE *, 'AIRFLOWS *.WA 

OPEN AND READ FUELFLOW TABLE 


FFLsO. 

OPEN (UNITs 10. FILE s' FUELFLOW '.USERs 'BRAMAN'. FORMs 'FORMATTED'. 
& BLOCKEDs. TRUE. . IOSTAT sill . ERR =300) 
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READ C 10* 1000.END=406)<EEL(I>. 1=1.350) 

406 CLOSECUNIT: 10) 

TYPE *. 'EUEL FLOW = ' . EEL 

OPEN AND READ ALPHA AS A EUNCTION OE POUER AND CL TABLE 
CLP0U£R=0. 

OPEN ( UNIT :11«EILE= ' D. CLPOHR ' , USER: ' BRAMAN * . FORM: 'FORMATTED ' . 
fc BLOCKED:. TRUE. . I0STAT=I9. ERR=501 > 

READ < 1 1 . 1000. END = 40B) ( CLPOWERl I ) . I : 1 » 120) 

08 CLOSE ( UNIT = 11) 

TYPE *. 'CLPOWER: '.CLPOUER 

OPEN AND READ APLHA AS A EUNCTION OE MACH AND CL TABLE 


CLMACH=0. 

OPEN (UNIT: 12, EILE: 'D. CLMACH' . USER: 'BRAHAN' . EORN: 'FORMATTED' z 
& I0STAT:I10/ERR:502. BLOCKED:. TRUE. ) 

READ (12. 1000. END =4 09) ( CL MACH ( I ) . I = 1 . 120) 

09 CLOSE ( UNIT = 12 ) 

TYPE *. 'CLMACH: * . CLMACH 

OPEN AND READ EOUR-D DRAG TABLE (EOR MACHO LESS THAN OR EQUAL TO 
CDARRAY =0 . 

OPEN (UNIT: 13, F ILE: 'D.CDARRY*. USER: 'BRAMAN '.FORM: 'FORMATTED'. 
& I0STAT:I11,ERR:S03. BLOCKED:. TRUE. ) 

READ ( 1 3 . 1000, END = 506) (CDARRAY (I), 1:1. 1150) 

506 CLOSE ( UNIT : 13 ) 

TYPE «, 'CDARRAY: '.CDARRAY 

OPEN AND READ DRAG AS A EUNCTION OE MACH AND ALPHA (MACH LT .6) 


OPEN (UN IT :13.EILE= 'NWCDS' . USER: ' BRAMAN ', FORM: ' FORMATTED ' . 

& I0STAT:I11.ERR:503. BLOCKED:. TRUE. ) 

READ ( 13. 1000. END =509) ( ANEUCD ( I ) . I = 1 . 1 ISO) 

509 CLOSE ( UNIT = 13) 

OPEN AND READ AIRCRAFT GEOMETRY DATA 


X 


DEBUG=0. 

OPEN (UNIT: 4, USER: 'BRAMAN' . FILE: ' D4 . L3DAT ' . FORM: 'FORMATTED' . 
& BLOCKED:. TRUE. . IOSTAT : I 1 , ERR :555 ) 

DO 1:1,5 

READ( 4. 102) ! READ PAST BANNER 

END DO 
DO 1:1,40 


READ(4, 996) NOTHING, GEOMETRY ( I ) 
END DO 

CLOSE (UNIT:4) 

TYPE *. 'GEOMETRY: ’.GEOMETRY 
S : GEOMETRY ( 1 ) 

MAC = GEOMETRY (10) 

HCGSTD = GEOMETRY ( 26 ) 

ZCGSTD : GE0METRY(27> 
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l 


HTAIL1 = 
ZTAILi = 
ZT = 
XRAMDRAG= 
ZRAMDRAG: 
ALAMDA = 
MAXN1 = 
1=1 

0 ( 1 = - 0.01 


geometry<29> 

GE0METRY<29> 

GEOMETRY: 30) 

GE0HETRYO2) 

GEOMETRY ( 33) 

GEOMETRY 04 > *0. 017453293 
GE0METRYC35) 


SEA LEVEL PRESSURE = 2116.22 LB/SQ FT. 


PZER0=2116.22 


CM=CRPM=CWF=CWA=CCL=CCD=CRF=CSR=CSRP:CALPHA=CCLAC=0.0 
THIS STARTS THE IHTERACTIUE VARIABLE INPUT OF THE PROGRAM 
TYPE 50 

50 FORMAT < /. * *',5X* 'INPUT STEADY STATE CORRECTED RPH: ') 
ACCEPT ** ARPM 
TYPE 70 

70 FORMAT ( / * ' * ' » 5X* 'INPUT STEADY STATE WT/DELTA: ') 

ACCEPT ** MOD 
TYPE 80 

80 FORMAT:/* 'B'*5X* 'INPUT BEGINNING MACH «: *) 

ACCEPT ** AM 
TYPE 100 

100 FORMATS# '*',5X» 'INPUT THETA: ') 

ACCEPT *» THETA 
TYPE 110 

110 FORMAT :/*' S 5X* * INPUT DELTA: ’> 

ACCEPT DELTA 

TYPE 111 

111 FORMAT :/*' S ’» 5X* ' INPUT HORIZONTAL C.G. DELTA: ’) 

ACCEPT *»DCGH 

TYPE 112 

112 FORMAT:/’* 'S'*5X* 'INPUT VERTICAL C.G. DELTA: ') 

ACCEPT *.DCGU 

CALC. SONIC VELOCITY 1FPS) 

A= 1 1 1 6 . 4 » SORT < THETA) 

THE ROUTINE NORMALLY STARTS MITH DESIRED STEADY-STATE VALUES 
OF WT/DELTA » Nl * AND MACH NUMBER. THE ITERATION BEGINS BY 
FIRST APPROXIMATING LIFT COEFFICIENT WITH : 

5 L = 0 

CL=WOD*( 2. /< 1 . 4*PZER0*S* ( AM**2 ) ) ) 

THETA1 = THET A*1 1 , ♦ . 2* : AM**2 ) ) 

DELTA2 = DELTA* ( < 1 . ♦ . 2* < AM**2 ) ) **3 . 5 ) 

QBARS = C 1 . 4*DELTA*PZER0*S*(AM*«2> )/2. 

PCTRPM=( ( ARPM*SQRT C THETA* 1 1 . ♦. 2*1 AM**2 ) ) > > /20688 . 0 > *100 . 0 
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C THE ITERATION LOOP BEGINS HERE WITH THE CALC. OP ALPHA BASED ON THE 
C APPROX I HAT I ON OF LIFT COEFFICIENT . 

C 

C THE FIRST CALCULATION HILL BE FOR ALPHA. THIS IS DONE MITH A TABLE 
C LOOK-UP OF CL US ALPHA . HOWEUER FOR HACH II LESS THAN OR EQUAL TO 
C .65 THE CL US ALPHA CURUE BREAKS OUT BY POWER. ABOUE .65 THE 
C CURUE BREAKS OUT BY HACH NUHBER . 

C 

10 IF( AH. LE .0.65) THEN 

L1=L2:0 

CALL TLU2 ( CL POWER. CL. PCTRPH, ALPHA. LI . L2 ) 

ELSE 

L3=L4=0 

CALL TLU2 ( CLHACH. CL . AH. ALPHA. L3. L4 ) 

END IF 
C 

C THE DRAO COEFFEC IENT IS KNOW CALC. WITH A FOUR-D TABLE 
C LOOK-UP ON POWER. HACH AND ALPHA FOR HACH NUHBERS LESS THAN .6. 

C FOR HACH NUHBERS GREATER THAN OR EQUAL TO . 6 A TWO-D LOOK-UP IS DONE 
C WITH HACH AND ALPHA. 

C 


LI :L2:L3:0 

IF (AH. GE. . 60 ) THEN 

CALL TLU2CANEWCD . ALPHA. AH. CDS. LI . L2 ) 

ELSE 

CALL TLU3 ( CDARRAY. ALPHA. PCTRPH. AH, CDS, LI . L2. L3 ) 
END IF 

ALPHA: ALPHA*0. 017453293 
CALL' RECOUERY ( ARPH, PRF ) 

CORRECT CD FOR REYNOLDS NUHBER EFFECT 

CALL REYNOLDS< CD. CDS. AH, THETA, DELTA) 


THE CORRECTED AIR FLOW IS NOW CALC. 

Ll:L2:0 

CALL TLU2( WA, ARPH. AH, CA IRFL, L 1 . L2 ) 

CALAULATE CORRECTED RAM DRAM FOR ONE ENGINE 
FR0DT2: ( (CAIRFL«AH*A ) / (SQRT( THETA l >*>32.2) ) 

CALCULATE RAH DRAG OUER DELTA (HULT. BY 2 FOR BOTH ENGINES) 
FR0D:FR0DT2«( ( 1 . 2*( AH**2) ) *«3. 5 ) «PRF *2. 

CALC. DRAG/DELTA 

DOD : (CD *1 . 4*P2ER0«S* ( AH**2 ) )/'2. 

C 

FGODs (DOD ♦FROD ) s ( COS ( ALPHA* ALAND A ) ) 

C 
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CALCULATE CORRECTED GROSS THRUST FOR ONE ENGINE 

FG0DT2= <FGODs< ( < 1 . ♦. 2*< AM**2) )**3.S)*PRF> )s2. 

WITH CORRECTED THRUST GO INTO THE FLIGHT TEST RPM US THRUST 
CORRECTED CURUES AND GET A NEW CORRECTED RPM 


L1=L2=0 

CALL TLU2CC0RRPM. FG0DT2/ AM. ARPM.L1.L2) 

PCTRPMz ( ( ARPM*SQRT ( THETA* ( 1 . + . 2* ( AM**2 ) ) ) ) /206S8 . 0 ) *100 . 0 
CALC. THRUST/DELTA 
FOD = FGOD 

CALC. NEW LIFT COEFFICIENT 

CL1: ( ( WOD-FOD* ( SINC ALPHA+ALAMDA ) ) ISOBARS ) *DELTA 

CORRECTING LIFT COEFFICIENT FOR THRUST MOMENT EFFECTS 

X1=XRAMDRAG-DCGH 
ZlsZRAMDRAG-DCGU 
HR=Z1*C0SC ALPHA) -X1*5IN( ALPHA) 

A1 =SQRT ( DCGH**2+DCGU**2 ) 

GAMMA IzAT AN2 ( ABS ( DCGUsDCGH ) ) 

IF (DCGH. GE. 0)THEN 

ZTHRUST=ZT-A1*SINCALAMDA+GAMMA1) 

END IF 

IF(DCGH.LT.O) THEN 

ZTHRUST rZT+Al*5IN(GAMMAl+ALAMDA) 

END IF 

XTAILzHTAILl-DCGH 
ZTAIL=ZTAIL1-DCGU 

LTzXTAIL*COS( ALPHA )+ZTAIL*SIN( ALPHA ) 

THE CHANGE IN LIFT COEFFICIENT DUE TO THRUST FOR 
BOTH ENGINES BECOMES: 

DCLT:2. *<FG0DT2*ZTHRUST-FR0DT2*HR)*DELTA2sLT/QBARS 

THE AIRCRAFT LIFT COEFFICIENT CORRECTED FOR THRUST MOMENT 
EFFECTS BECOMES : 

CLTACzCLU-DCLT 

CORRECTING LIFT COEFFICIENT FOR OFF STANDARD C.G. POSITION 


! EQ . It 32D 
lEQ.tt 33D 
lEQ.tt 34D 
lEQ.tt 35D 
lEQ.tt 36D 


lEQ.tt 39D 
lEQ.tt 4QD 
lEQ.tt 41 D 


C 


Z=HTAIL1*C0S< ALPHA ) +ZTAIL 1 *SIN( ALPHA) 
DCGzZ-LT 

DCLCGz-CCLTAC*DCG)s(LT^DCG) 


lEQ.tt 44D 
lEQ.tt 45D 
lEQ.tt 46D 
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THE TOTAL STEADY STATE POWER OFT LIFT COEFFTCIENT WILL BE: 
CLS=CLTAC+DCLCG 

TEST CLS WITH CL FOR CONVERGENCE, IF THEY ARE WITHIN .00001 
OF EACH OTHER IT WILL BE ASSUMED THEY HAUE CONVERGED ' 
ONTO A STABILIZED POINT 

IF < CLS . LE . CL* . 00001 . AND . CLS . GE . CL- . 00001 )GOTO 1100 
CLrCLS 
L = L*1 

IFCL . GE . 20 ) GO TO 1100 
CONTINUE ITERATION 
GOTO 10 
1100 CONTINUE 


IFCI.GT.100) GOTO 2000 
CRPM ( I ) s ARPM 
CCLtI): CLS 
C ALPHA ( I > =ALPHA*57.3 
CM( I > s AN 
CCD(I>= CDS 
CCLAC<I)=CL1 
L1:L2=0 


CLAC. FUEL FLOW FOR BOTH ENGINES 

CALL TLU2 1 FFL , ARPM, AM, CFFLOW, LI , L2) 

CALL TABINTtAM, FULN, 0, 17,0,NCURU. IND) 

FFLOW=CF FLOW* SORT < THETA 1 ) * ( DELTA2**FULN) 

FFLOW= C FFLOW+ADDFFL )*2. 

CALL STAB TO CALC. RANGE FACTORS 

WT =WOD*DELTA 

UTT: AM* (49. 04*S0RT ( 518. 67*THETA) ) 

CALL STAB(FFLOW, UTT, WT, DELTA) 

CFG< I ) :FG0DT2 
CWA< I ) =CAIRFL 
CWF ( I ) rCFFLOW 
CSR ( I ) =SR 
CRF < I ) iRF 
CSRP(I):SRP 

IF THE MACH NUMBER IS LESS THAN .2 STOP THE ITERATION 
IF ( AM . LE. 0 . 2 . OR . L . GE. 20 ) GO TO 2000 
INCREMENT MACH NUMBER TO FIND A NEW STEADY STATE POINT 
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AM i AM ♦ DM 
X ±1 + 1 
GOTO 5 
2000 CONTINUE 

TYPE *, ' ' 

TYPE 215. MOD 
TYPE 221 
N = I 

DO J=1.N 
TYPE 300, 

* CM < J > , CALPHAt J ) , CCL < J ) , CCD < J ) , CRPH < J ) , CRF < J ) , CSR < J ) , CSRP < J ) 

END DO 

IF ( L . GE . 20) TYPE 216 

MRITE OUT THE SOLUTIONS TO THE PROPER DEUICE 

IF (IXXX . EQ . 6) THEN 

MRITE( IXXX, 30007FRMFD 
END IF 

MRITE ( IXXX, 21 5) NOD 
MRITE ( IXXX, 220) 

Nil 

DO 250 J i 1 , N 

WRITE ( IXXX. 305, IOSTATiIE, ERRr5S6) 

& CM ( J ) » CALPHA ( J ) , CCL < J ) , CCD ( J ) » CCLAC ( J ) » CRPM ( J ) , CFG ( J > , CHF C J ) , 

8. CMA ( J ) , CRF ( J ) , CSR( J ) , CSRP( J) 

250 CONTINUE 

IF ( L « GE . 20 > WRI TE ( IXXX, 216 ) 

IF ( IXXX . EQ . 6) THEN 
MRITE< IXXX, 3000)FRMFD 
END IF 

START NEH ITERATION 
GO TO 1 

102 FORMAT <' ') 

200 FORMAT ( 2X» A8. 1 2X, F10 . 4, 6X, F 1 0 . 4 ) 

215 FORMAT ( /■» T32, 'PROGRAM ITERATE ' , ✓ T10, ' CALCULATEDFOR A WT/'DELTA 

& RATIO OF : ' , F7 . I./) 

216 F0RMAT(8X, 'THE LAST ITERTATION HAS EXCEEDED THE ITERATATION 

& 'LIMIT OF TWENTY ’ w / t 22X, ' AND THE PROGRAM HAS BEEN TERMINATED') 
221 FORMAT ( T2, 'MACH', Til, 'ALPHA', T22, 'CLS',T32. 'CDS', T43, 'RPM', 

6 T53. 'RF'.T63. 'SR'»T73. 'SRP'»/> 

220 FORMAT < T2, 'MACH »'.T14, 'ALPHA', T26, 'CLS',T38, 'CDS’,T50, 'CL1 ', 

& T62, 'RPM',T6B, 'FG0DT2 ' , T76, 'CFFLOM ' , T88, 'CWA',T98 ,'RF', 

6 Till, 'SR'»T 125, 'SRP ' , /" ) 

230 FORMAT ( 20X, 'DELTA FUEL FLOM IS i ’»F10.4»^) 

300 FORMAT ( 8 ( IX , G9 . 4 ) ) 

304 TYPE *, 'ERROR', 14, 'IN OPEN 6' 

CALL EXIT 

305 FORMAT < 12< IX, G10. 4 ) ) 

333 FORMAT <1X,1A1) 

400 TYPE *, 'ERROR IN OPEN 8 (THRUST) ',16 
CALL EXIT 
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401 

TYPE 

*. 'ERROR 

IN 

OPEN 

9 (AIRFLOW) ' 

.17 


CALL 

EXIT 





soo 

TYPE 

«. 'ERROR 

IN 

OPEN 

10 (FUELFLOW) 

*. 18 


CALL 

EXIT 





501 

TYPE 

*. 'ERROR 

IN 

OPEN 

11 (D.CLPOWR) 

'.19 


CALL 

EXIT 





502 

TYPE 

*, 'ERROR 

IN 

OPEN 

12 (D.CLMACH) 

'.110 


CALL 

EXIT 





503 

TYPE 

«. 'ERROR 

IN 

OPEN 

13 (D.CDARRY) 

'.111 


CALL 

EXIT 





505 

TYPE 

». 'ERROR 

IN 

OPEN 

3 (OUTPUT FILE) '.I 

515 

TYPE 

». ‘ERROR 

IN 

OPEN 

17'. 11 



CALL 

EXIT 





555 

TYPE 

*. 'ERROR 

IN 

GEOMETRY READ. ERR: 

'.11 


CALL 

EXIT 





556 

TYPE 

*. 'ERROR 

IN 

WRITE 5. ERR:'. 12 



CALL 

EXIT 





996 

FORMAT ( A48. FIS 

.6 

> 



999 

FORMAT C A ) 





1000 

FORMAT ( 6G13 . 6 > 





3000 

FORMAT (IX. 1A1 ) 






END 

C 

1 

SUBROUTINE REYNOLDS (CD. CDS* AH. THETA. DELTA) 

REYNOLDS NUMBER CORRECTION SUBROUTINE 

THIS ROUTINE WAS DEVELOPED BY MAJ. TOM YECHOUT AND 
CODED BY KEITH BRAMAH 


THE ANALYSIS REF. 

l: AFFTC-TR-81-3 

•‘EVALUATION OF THE EFFECT OF WINGLETS ON THE PERFORMANCE 
OF A KC-I35A AIRCRAFT" 

2: "AIRPLANE AERODYNHICS AND PERFORMANCE" 

BY LAN/ROSKAM 


COMMONAGE ON/' ALPHA. ALAMDA. QBARS. S. MAC. WAREA. LENGTH 
REAL*4 HAREA( 9) . LENGTH( 9) , MAC 
R£AL*4 RETEST (9). RE25K( 9) . K 

CALC. CONSTANT FOR ALL 25K FEET REYNOLDS NUMBER 

TATK:286. 16*THETA 
CONSTANT: 3362674 . 6* AH 

CALC. 25K FEET REYNOLDS NUMBER 


DO 1:1.7 

RE2SK ( I ) :CONSTANT*LENGTH( I ) 
END DO 
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CALC. CONSTANT FOR TEST ALTITUDE REYNOLDS NUMBER 

CONTTEST: (7100000. 0*DELTA»AM*(TATK*1 10. 4) ) ✓ (398. 53«THETA**2> 
CALC. TEST ALTITUDE REYNOLDS NUMBER 
DO 1:1,7 

RETEST ( I ) :CONTTEST*LENGTH( I ) 

END DO 

CALC. K-FACTOR 

K: .455/S/C (l . ♦ . 144«AM*«2 ) ** . 6S ) 

CALC. CD PRIMED AT 25K FEET 
C0P25K 

& 

& 

& 

& 

& 

& 

CALC. CD PRIMED TEST ALTITUDE 

CDPTEST =K* ( WAREA ( 1 > / ( L0G1 0 t RETEST ( 1 ) > ) **2 . SS 
& +WAREA< 2) / ( L0G10( RETEST ( 2 ) ) >**2.58 

& + WARE At 3) / 1 L0G10( RETEST (3)))**2.58 

& ♦ WARE A ( 4 ) ✓ ( LOGlOt RETEST (4)))**2.58 

& ♦WAREA ( Slst LOGlOt RETEST ( 5) ) )**2 . SB 

& +WAREA 1 6) 7 (L0G10 < RETEST t6)))**2.58 

& ♦WAREA ( 7 )/( LOGlOt RETEST < 7) ) )**2. 58) 

CALC. DELTA CD 

DELC DP sCDP25K -CDPTEST 

CALC. CD CORRECTED 

CD:CDS-DELCDP 

RETURN 
END 


SUBROUTINE ST ABtWFTOT, UTT » WT , DAT ) 
C0MM0N^0UT2/'RF » SR» SRP 

THIS SUBROUTINE CALCULATES THE 
STABILIZED POINT PERFORMANCE PARAMETERS 

CALCULATE RANGE FACTOR 


= K* < WAREA ( 1 )/"< LOGlOt RE25K (1)))**2.5S 
♦WAREA (2)/ (LOGlOt RE25K (2 ) ) >**2.58 
♦WAREAt 3 )✓ (LOGlOt RE2SK(3 > ) >**2.58 

♦ WAREA (4)/'(L0G10(RE25K(4) ) >4*2. 58 

♦ WAREAt 5 I/'t LOGlOt RE2SK ( 5 ) ) )**2.S8 
♦WAREA(S)/ (LOGlOt RE25K (6) 11**2.58 
♦WAREA 1 7 )/• t L0G10 1 RE25K 1 7 ) ) >**2.58> 
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RF: (UTT«WT >/WFTOT/ 1.609 
C 

C CALCULATE SPECIFIC RANGE 

C 

SR: <UTT>/WFTOT/ 1.609 
C 

C CALCULATE SPECIFIC RANGE PARAMETER 

C 

SRP: < UTT*DAT ) /WFTOT/1 . 609 
RETURN 
END 
C 
1 

SUBROUTINE TABINT ( X. Y , Z. NX, NZ» CURUE. INDIC) 
C 

C TABLE LOOK-UP SUBROUTINE 
C 

DIMENSION CURUE ( 1 > 

KX=NX 
INDIC: 1 

15 DO 30 1st . NX 

IF (X-CURUEC I )) 16. 28. 30 

16 IF (1-1) 17.17.20 

17 INDIC:2 
KX:2 

GO TO 32 
20 KX: I 

GO TO 32 

20 IF ( I —NX > 30.20.20 

30 CONTINUE 

69 FORMAT C5X, 'CURUEt I > : '.F10.5> 

INDIC:3 

32 XL: CURUE ( KX-1 ) 

XH: CURUE ( KX ) 

40 J :KX+NX 

IF < NZ- 1 ) 42.42,44 
42 ASSIGN 95 TO NFORK 

GO TO 75 

44 M:NZ+NX 
KZ:M 

J :NX + 1 
DO 70 I : J . M 

IF ( Z-CURUE ( I ) > 45,60.70 

45 IF C I -NX- 1 ) 46,46,50 

46 INDIC:4 
KZ:J+1 
GO TO 72 

50 KZ: I 

GO TO 72 

60 IF < I -M ) 70,50.50 

70 CONTINUE 
INDIC:5 

72 ZL : CURUE ( KZ- 1 ) 

ZH:CURUE ( KZ > 

ASSIGN SO TO NFORK 
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J = < KZ-NX- 1 ) *NX*KX«'NZ 

75 Y=CURUE< <X-XL)/<XH-XL) )* (CURVE ( J)-CURUE< J-l ) ) 
GO TO NFORK* (80.90.95) 

80 J= J+NX 

ASSIGN SO TO NFORK 
YLO= Y 
GO TO 75 

90 Y=YLO*( (Z-ZL)^<ZH-ZL>>*(Y-YLO> 

95 RETURN 

END 
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C.4.2 MODEL 


PURPOSE: 

To predict flight trajectory performance from baseline 
aerodynamic and engine characteristics. 


APPROACH: 

The overall approach used in MODEL is described in Section 
3 . 2 . 4 . 2 . 
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C.4.2.1 DRAGA 


PURPOSE : 

This subroutine was used with the MODEL program to calculate 
drag coefficient and angle of attack. The problem here was the 
aerodynamic data used to calculate C and a (i.e. C vs . a 

D L s 

and C vs. a) were defined with all thrust moment, and c.g. 

5 

effect taken into account. Therefore, an iteration on alpha 
was required to determine a C which correlated to the C 

L s l a/c 

passed by MODEL. With alpha defined, a drag coefficient 
could then be calculated from the vs. a curve. 


APPROACH: 

The iteration routine was started by first approximating an 

angle of attack with the aircraft lift coefficient provided 

by MODEL. The angle of attack will not be correct since the 

table look-up for C vs. a requires a C corrected for thrust 

L S L 

moment effects. With the first approximation of alpha and the 

aircraft C , the standard thrust moment correction was calculated 

to obtain a C from which a new alpha could be determined. A 
L S 

convergence test for alpha was then performed requiring agree- 
ment to within .0001 degree. If the convergence test was not 

satisified, a is set equal to a~ and a new C was then calculated- 

L S 

If convergence had occured, the drag coefficient (C^ ) was then 

s 

calculated, and the Reynold number corrections subtracted out to 
yield the and alpha needed for MODEL. 
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c 

SUBROUTINE DRAGA (CD, ALPHA, AM. CL, DELTA. THETA, PCTRPM) 

COMMON/DDD D/DEBUG 

COMMON/DPS1 /DHI, DIST, DMI, DNM, ENM, EDEG, DEG, DDEG, S, AMP 
C0MM0N/DPS5/AIT, IALF , AMC, ANZ, ANZZ. FEX, H. HTDOT. PITCH. R 
COMM ON/ DP SI 6/ CURU El ( 200 ) . CURUE2 ( 200 ) . CURUE3 ( 200 ) . CURUE4 ( 200 ) 
i .ITABLE 

COMMQN/USER l /THRUST 1 ( 300 ) , HA < 300 ) . FFL ( 350 ) . CDARRAY (1150), 

& CLPOUER ( 120 > , CLMACH ( 120 ) . ANEUCD (1150), ANCURU ( 50 ) 

COMMON/ USER2/HCG5TD, UCGSTD, HTAIL 1 . UTAIL1 , YT. XRAMDRAG. YRAMDRAG 
& DCGH.DCG U 

REAL*4 LT 

IF(DEBUG.EQ.l) TYPE *, 'SUBROUTINE DRAGA' 

CL 1 =CL 

L1:L2=L3:L4:0 
IND=KATM= 1 
IFC AM. LE . 0 . 65 )THEN 

IF ( IT ABLE ,GT.2)THEN 
DD=DELTA*21 16.22 
CALL HORP(HT. DD. IND. KATM) 

LI :0 

CALL TLU1 (CURUE4( 1 ), HT» PCTRPM. LI ) 

END IF 

CALL TLU2 ( CLPOHER. CL 1. PCTRPM. ALPHA 1. LI. L2) 

ELSE 

CALL TLU2 ( CLMACH, CL1 , AM, ALPHA1 . L3. L4) 

END IF 

XlrXRAMDRAG-DCGH !EQ.tt 32D 

YtzYRAUDRAG-DCGV <E<3.» 33D 

CALL TH( FG, FE. WF, FN, ALPHA, DELTA, AM. THETA) 

5 HR:Y1*C0S( ALPHA 1* . 01745329 )-Xl*SIN( ALPHA 1* .01745329) 

A1=SQRT(DCGH**2+DCGU»*2) !EQ.» 35D 

IF ( DCGH . EQ . 0 . . AND . DCGU . LE . 0 . ) THEN 
Y THRUST iTY+Al *COS ( AIT* . 01745329 ) 

GO TO 6 
END IF 
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IF ( DCGH . EQ . 0 . . AND. DCGU. GT . 0) THEN 

Y THRUST =YT-A1*CQS< AIT* . 01743329 ) 

GO TO 6 
END IF 

G AMU At r ATAN2 ( ABS ( DCGU/ DCGH) ) !EQ.R 36E 

IF ( DCGH . GE . 0 ) THEN 

YTHRUST sYT-Al*SIN( AIT* . 01745329+GAMMA1 ) 

END IF 

IF ( DCGH . LT . 0) THEN 

YTHRUST =YT+A1*SIN( GAMMA1+AIT *.01745329) 

END IF 

6 XTAILiHTAILl-DCGH !EQ.« 39D 

YTAIL=UTAIL1-DCGU !EQ.» 40D 

LTsXTAIL*COS( ALPHA1* . 01745329 ) ♦YTAIL*SIN( ALPHA 1* . 01745329) 

THE CHANGE IN LIFT COEFFICIENT DUE TO THRUST IS: 

CALC. DELTA CL FOR BOTH ENGINES 

QBARS: ( 1 . 4*DELTA*21 16. 22*S*(AM**2) )/2. 

DCLT = 2 . 0* ( FG* YTHRUST - FE*HR )/LT/QBARS 

THE LIFT COEFFICIENT NOW BECOMES: 

CLTAC=CL1+DCLT 


CORRECTING LIFT COEFFICIENT FOR C.G. POSITION 

2=HTAIL1*C0S( ALPHA1*. 01745329 )+UTAILl*SIN< ALPHA1*. 01745329) 
DCG=Z-LT !EQ.R 45D 

DCLCG;- 1 CLT AC*DCG )✓< LT +DCG ) !EQ.« 46D 

THE TOTAL STEADY STATE POWER OFF LIFT COEFFICIENT WILL BE: 

CLS = CLT AC + DCLCG 
C 

C THE FIRST CALCULATION WELL BE FOR ALPHA. THIS IS DONE WITH A TAB1 
C LOOK-UP OF CL US ALPHA . HOWEUER FOR MACH tt LESS THEN OR EQUAL TO 
C .65 THE CL US ALPHA CURUE BREAKS OUT BY POWER. ABOUE .65 THE 
C CURUE BREAKS OUT BY MACH NUMBER. 

C 

L1=L2:L3=L4:0 
IF< AM. LE . 0. 65 )THEN 

CALL TLU2 < CLPOWER. CLS. PCTRPM. ALPHA2. LI . L2 ) 

ELSE 

CALL TLU2 < CLMACH. CLS. AM. ALPHA2. L3. L4 ) 

END IF 

IF < ALPHA2 . LE . ALPHA1 + . 0001 . AND . ALPHA2 . GE . ALPHA 1 - . 0001 )G0 TO 10 
ALPHA1 :ALPHA2 

GO TO 5 
C 

C WITH ALPHA KNOWN DRAG CAN NOW BE CALAULATED. THIS IS DONE WITH 
C A FOUR-D TABLE LOOK-UP ON MACH, POWER AND, ALPHA FOR MACH LESS 
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THEN .6 AND A 2-D LOOK-UP ON NACH AND ALPHA FOR MACH B > . 6 


10 L1:L2:L3=0 

ALPHA: ALPHA2 
IF ( AM. GE . . 6 ) THEN 

CALL TLU2 ( ANEUICD. ALPHA, AH, CDS, LI , L2 ) 

ELSE 

CALL TLU3C CDARRAY, ALPHA, PCTRPM, AN, CDS, LI , L2, L3) 
END IF 

CALL REYNOLDS (CD, CDS. AN, THETA, DELTA) 

C 

RETURN 

END 
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C .4.2 .2 THRUST 


PURPOSE : 

This routine was used by the MODEL program to describe the 
in-flight test engine characteristics. 


APPROACH : 

The program inputs were simply percent engine RPM and Mach 

number. The routine performed a number of table look-ups 

and output F , F , W , and W. . 

g r a f 
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ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHOR 

COMPUTER 

0/S 

COMPILER 


UNIVERSITY OP KANSAS CENTER FOR RESEARCH INC. 


THRUST 

BRAMAN , KEITH 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


I 

I 

I 

I 

1 


REVISIONS 

1 1 1 

PRB I VER/REU I NAME I DATE 

1 1 1 

I I/O I KEITH BRAMAN I 7/20/83 
1 1 1 


SUBROUTINE THRUST < PC TRPM. FG» FE» FNZ. WF , ALPHA. AM. DELTA. THETA) 

SUBROUTINE TO CALC. GROSS THRUST.NET THRUST 
AND FUEL FLOW FOR THE GARRETT FTE 731-3 ENGINE 

COMHON/DDDD/DEBUG 

COMMON/USER 1 /THRUST 1 ( 300 > . WA ( 300 ) . FFL < 350 ) . CDARRAY (1150). 
ft CLPOWER ( 120 ) . CLMACH ( 120 ) . ANEHCD (1150) 

IF< DEBUG. EQ. 1 . ) TYPE *. 'DEBUG SUB THRUST' 

THETA2=THETA*(1.4.2*CAM**2>> 

DEL TAZz DELTA* ( 1 . 4- . 2* ( AM**2 ) >**3.5 
RPM=PCTRPM*20688. /100. 0 
CRPM:RPM/SQRT (THETA2) 

LI =LZ=L3:L4:L5=L6:0 


CALL SUB. TO LOOK-UP THE CORRECTED AIRFLOW 
CALL TLU2CWA.CRPM, AM. CAIRFL. L1.L2) 

CALC. RAM DRAG 

FE= < ( CA IRFL*AM*1 116. 4*SQRT C THETA ) ) / < SORT ( THETA2 ) *32 . 2 ) ) *DELTA2 
CALL SUB. TO LOOK-UP THE CORRECTED ENGINE THRUST 
CALL TLU2 < THRUST 1 , CRPM. AM. FG0DT2. L3. L4 ) 

CALC. GROSS THRUST 
FG=FG0DT2*DELTA2 

CALL SUBR. TO LOOK-UP CORRECTED FUEL FLOW 
CALL TLU2(FFL. CRPM, AM, FFLOW. L5. L6 ) 
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CALC. FUEL FLOW 

WF = C FFLOM* DEL TA2» SORT ( THETA2 ) ) 

RETURN 

END 
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C .5 UTILITIES 


A number of software utility routines were developed and used 
throughout the program. The scope of this effort ranged from calculating 
the in-flight thrust characteristics to plotting data files. Only 
two will be presented here. However, the following is a list of the most 
used routines with a brief description of each. 

a) WD - Calculated constant W/6 altitude/weight profiles with fuel burn. 

b) Least - Least squares curve fit routine. 

c) PETIME -Plotted time histories of performance file one. 

d) THIST2 - Plotted time histories of flight test data base files. 

e) Look B - Screened/edited and hardcopy of performance file one. 

f) Look 9 - Screened/edited and hardcopy of flight test data base files. 

g) MlPLOT - Plotted engine deck characteristics vs. N. /Ve . 

i L 2 

h) ERROR - Calculated error analysis of any engineering units parameter. 


i) 

TLUl 

- 2-D 

table 

look-up 

j) 

TLU2 

- 3-D 

table 

look-up 

h) 

TLU3 

- 4-D 

table 

look-up 


307 



C.4.1 THRUST! 


PURPOSE: 

This subroutine calculated all the in-flight engine character- 
s' 

istics. Incorporated in this calculation were the n and fuel 
flow ratio corrections defined in the thrust modeling section 
(3. 2. 1.2). 

APPROACH : 

The routine performed table look-ups to determine in deck engine 
characteristics and made the necessary n and fuel flow ratio 
corrections. A fuel temperature correction to test fuel flow 
was also 'accomplished. 
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c 

m ORGANIZATION 

UNIVERSITY OF KANSAS CENTER 

FOR RESEARCH INC. 


c 

* PROGRAM 






c 

* SUBROUTINE 

THRUST 1 





c 

* AUTHOR 

BRAMAH . 

KEITH 




c 

* COMPUTER 

SEL 32/77 





c 

* 0/S 

M.P.X. 1. 

3 




c 

* COMPILER 

ANSI-77 STANDARD FORTRAN (F0RT77) 



c 

* 






c 

* 


REVISIONS 




c 

* 






c 

* I 



— I 



c 

• 1 PR# 

I VER/REU 

I NAME 

I DATE 

i 


c 

* I 

— I 


I 



c 

* I 

I 1/0 

I KEITH BRAMAN 

I 12/3/82 

i 


c 

* I 

— I 


— Ir 



c 

* 






c 






mm 


c 

c 

c 

C CURRENT MODIFICATIONS (INSTALLED) : 

C A CORRECTION TO FUEL FLOW FOR TEMP. HAS BEEN ADDED 

C AND THE FLIGHT TEST DATA BASE INCREACED BY TWO UALUES 

C HUM 138 AND 139 CWFL AND CEFR IN LBS. 

C MOD DATE 01/18/83 

C 

COMMON/' INPUT-' ANSUBX, ANSUBY, ANSU8N. PP. QQ. RR- THETAD. FUEL. ANIL. 

& AN1R. PHID. ALPHAD. DLTAL. DLTAR. DLTEL. DLTER. BETAD. GCIC1. TIC. PS1. 
& CURUP1 . SUING. MAC. LEPOS. MAXN1. YSUBA. XSUBA. ZSUBA, EXD. EZD 
& . PALPH. PBETA. PALBET. CORALPHA. NCURU. BETACURU 

COMMON/OUTPUT/PROUT l . PR0UT2, INOUT. EUF1 . BITOT. THROT - 
COMMON/ DA TAL2/ 


& 

AMCT 

. AMIC 

.CAS 

. DAT 

. DLHPC 

. DLMPC 

a 

. DLVPC 

. HCS 

» HCT 

.HIC 

. HICL 

. HICP 

a 

.PAS 

.PAT 

.PS 

.PTOS 

.PTOT 

. Q8ART 

a 

. QCIC 

. QCS 

. QCT 

. RCHIC 

. RCVIC 

. RHOS 

a 

.RHOT 

. RRTH2S 

. RRTH2T 

» RTHAS 

. RTHAT 

. RTH2S 

a 

* RTHZT 

.SIGAS 

.SIGAT 

.SIGIC 

» TAIC 

.TAS 

a 

. TASK 

, TAT 

« T ATK 

. THAS 

.THAT 

. TH2S 

a 

» TH2T 

» TTZT 

. TT2TK 

.TT2S 

, TTZSK 

»VCS 

a 

. VCT 

.VES 

.VET 

.VIC 

. VICL 

. VTS 

a 

. VTT 

.MT 

. XNZM 

.PT 

.CLIC 

. CLT 


C0MM0N/THRU2/THRUS( 1000) . WA1 ( 1000) . UF1 ( 1000 ) . WFLT , WFRT, THRCL( 72) . 
1 THRCRC72) 

COMMONS INERTT/UTS. DENS. FT1 , FTL. FTR, TUF. XBAR l . YBAR1 . ZBAR 1 , 
t IXX. IYY. IZZ. IXZ . OWE. DELTP. FUELP. FULBSTOT 

INTEGER PTSX.PTSY.ENG 
C 

REAL*4 CURVP1 < 20. 7 ) 

REAL*4 PROUT 1(17) 

REAL*4 PR0UT2 ( 44 ) 

REAL«4 INOUT (IS) 

REAL«4 EUFK72) 
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REAL*4 BITOT ( 8) 

REAL*4 THROT(ll) 

REAL* 4 NCURV< 50) 

REAL*4 BETACURU(SO) 

REAL*4 CORALPHAOO) 

REAL*4 MAXN1 

LAHDADrl. 

ENG: 2 

ILsO 

IND:0 

THE CORRECTED FUEL FLOWS IN LBS. ARE 

CWFL:WFLT*(-. 00309* FTL +6.89) 

CWFR:WFRT*t-. 00309* FTR +6.89) 

CONY. KRPM TO RPM (LEFT) 

N1=AN1L*MAXN1^100. 

CN1:N1/'RTH2T 

CONV KNOTS TO FT^SEC 

VTT1 :VTT*1 . 689 

FIND CORRECTION FACTOR FOR TEST ENGINE 

CALL TABINT ( CN1 » EF ACTOR. O. 36 » 0* THRCL. IND) 

WFT :CUFL 

CALC. PT2 IN PSF BY MULT. PTOT BY RECOVERY FACTER AND THEN 
CONVERTING FROM IN. HG TO PSF 

PT2:PT0T*. 995*70.73 
DLT2:PT2^21 16.8 
DO 10 1:1. ENG 
1P0IN:0 

CALCULATE THE FUEL FLOW 

CALL TLU2(WF1, CN1.AMCT.WFP0.L1.L2) 

CALL TABINT ( AMCT . FULN. 0. 17.0.NCURV. IND) 

WFP:WFPO* < <DLT2**FULN)*RTH2T) 

CALC. GROSS THRUST 

CALL TLU2 < THRUS. CN1 . AMCT. FGPO. LI . L2) 

FGP:FGP0*DLT2 

CALC. AIRFLOW 

CALL TLU2 ( WA1 . CN1 . AMCT. WAO. L 1 . L2) 

WAD:WAO* ( DLT2/RTH2T ) 
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WAi<WFT/3600. ) * ( WAD*3600. /EFACTOR/WFP+1 . /EFACTOR-l . ) 

FGs WFT/ WFP *FGP/EF ACTOR 
FR=< <WA«UTTl)/32. 174) 

RAO: C ALPHAD^LAIIDAD ) * (3 . 141592654/160) 

FNsFG* ( COS ( RAO) ) -FR 


CONU. XRPM TO RPM(RIGHT) 

N1=AN1R*MAXN 1/100 
CN1=N1/RTH2T 
IF < IL.EQ. 1 ) GO TO 3 
,, THROTt 1 > :FG 
THROTC 3 ) sFR 
THROT ( 5 ) :FN 
THROT < 7 ) sWA 
ILsl 

WFTrCWFR 

CALC. EFACTOR FOR RIGHT ENGINE 

CALL TABINT(CN1» EFACTOR.O* 36.0. THRCR» IND) 
10 CONTINUE 
5 THROT <2) :FG 

THR0T(4)=FR 
THROT <6 ) sFN 
THR0T(8) rWA 
THROT (9) :DLT2 
THROTC 10>=CWFL 
THROT < 1 1 > sCWFR 1 
RETURN 
END 
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C.4.2 REYNOLDS 


PURPOSE: 

This routine calculated the change in drag coefficient due 
to Reynolds number standarized to 25,000 ft. Reynolds was 
used by START, ITERATE, and MODEL. 

APPROACH : 

A component build-up of the aircraft surfaces was performed 

to determine for the aircraft from which a delta due 

to skin friction was computed. START added this effect to 

the drag coefficient to obtain C . However, ITERATE and MODEL 

S 

required a C from C so this correction was subtracted. The 

S 

ITERATE listing incorporates a modified version of REYNOLDS 
to account for the difference. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE REYNOLDStCD. CDS. AMCT. TATK, THAT. DAT) 

REYNOLDS NUMBER CORRECTION SUBROUTINE 

THIS ROUTINE WAS DEUELOPED BY MAJ. TON YECHOUT AND 
CODED BY KEITH BRAMAN 


THE ANALYSIS REF. 

1 : AFFTC-TR-81-3 

"EVALUATION OF THE EFFECT OF WINGLETS ON THE PERFORMANCE 
OF A KC-135A AIRCRAFT” 

2: "AIRPLANE AERODYNMICS AND PERFORMANCE" 

BY LAN/ROSKAM 


COMMON /'GEOM/' ALPHA. ALAMDA. OBARS. S. MAC. UAREA. LENGTH 
REAL*4 WAREA( 9) . LEN6THO) » MAC 
REAL*4 RETEST ( 9 ) , RE2SK ( 9) . K 

CAL CONSTANT FOR ALL 25K FEET REYNOLDS NUMBER 

CONST ANT =3362674. 6* AMCT 

CALC. 2SK FEET REYNOLDS NUMBER 


ORGANIZATION 

PROGRAM 

SUBROUTINE 

AUTHOR 

COMPUTER 

O/'S 

COMPILER 


UNIVERSITY OF KANSAS CENTER FOR RESEARCH INC. 


REYNOLDS 
BRAMAN . KEITH 
SEL 32/77 
M.P.X. 1.3 

ANSI-77 STANDARD FORTRAN (F0RT77) 


REVISIONS 


PRH I UER/REV 


NAME 

KEITH BRAMAN 


DATE 


I/O 


I 3/03/93 
-I 


DO 1=1.7 

RE25K ( I ) =CONSTANT*LENGTH( I ) 

END DO 

CALC. CONSTANT FOR TEST ALTITUDE REYNOLDS NUMBER 

CONTTEST = ( 7100000. 0*DAT*AMCT*< TATK+110. 4 ) ) /< 398. S3*THAT**Z) 
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C CALC. TEST ALTITUDE REYNOLDS NUMBER 
C 

DO 1:1,7 

RETEST ( I > iCONTT£ST*L£NGTH( I ) 

END DO 
C 

C CALC. K-FACTOR 
C 

Ks.453^S'( (l*. 144*AMCT**2 ) ** . 65 ) 

C 

C CALC. CD PRIMED AT 25K FEET 
C 

CDP2SK: K*( MARFA ( 1 >s (LOGIO ( RE25KC 1 ) ) 
ft ♦WAREA( 2 ) ✓ ( LOG 10 ( RE25K ( 2 ) ) 

ft + UAREA(3)/’(L0G10( RE25K(3) ) 

& +UAREA ( 4 > ✓ ( LOG 10 ( RE25K( 4 ) ) 

ft +HAREAT 5 > ^ ( LOGIO (RE25K(S> ) 

& +UAREA ( 6 ) ^ ( LOG 10 ( RE25K ( 6 ) > 

ft +UAREA( 7 ) / (L0G1Q ( RE25K ( 7 ) > 

C 

C CALC. CD PRIMED TEST ALTITUDE 
C 

CDPTESTsK*(MAREA 
& ♦UAREA 

ft +WAREA 

ft ♦HAREA 

ft +-WAREA 

ft +WAREA 

ft 4-MAREA 

C 

C CALC. DELTA CD 
C 

DELCDP=CDP25K-CDPTEST 
C 

C CALC. CD CORRECTED 
C 

CDS=CD+DELCDP 
C 

RETURN 

END 


( 1 (LOG 10 (RETEST 1 1 ) 

(2 ) s (L0G10 ( RETEST < 2 ) 

(3) /<L0G10( RETEST (3) 
< 4 >s (LOG 10 (RETEST ( 4 ) 
( 5 > ✓ ( LOG 10 ( RETES T ( 5 ) 

(6) ^(L0G 10 (RETEST (6) 

(7) s (LOG 10 ( RETEST ( 7 > 


) **2 . 58 
) **2 . 58 
>**2.58 
>**2.58 
>**2.58 
>**2.58 
>**2.58) 


>>**2.58 

> >**2.58 

> >**2.58 

> >**2.58 
>>**2.58 

> >**2.58 

> >**2.58) 
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APPENDIX D 

TFE 731-2 ENGINE PREDICTION DECK FINAL THRUST, 
FUEL FLOW AND AIRFLOW CHARACTERISTICS 
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APPENDIX D SUMMARY 


Figure No . 


Title 


D.l 

D.2 


D. 3 


Engine Deck Corrected Gross Thrust Summary 
Engine Deck Nonstandard Corrected Fuel Flow Summary 
Engine Deck Corrected Airflow Summary 






NONSTANDARD CORRECTED 


1 , 000 < 


5,000 


10,000 15,000 

CORRECTED RPM, 


20,000 

Ni 


25,000 



Figure D. 2: Engine Deck Nonstandard Corrected Fuel Flow Summary 







APPENDIX E 


LEAR 55 THRUST RUN 

A thrust run was accomplished using a Lear 55 aircraft (S/N N552GL) 
and the Edwards AFB thrust stand facility on February 28, 1983. This 
thrust run defined a calibration correction curve for the load cell/ 
tie down arrangement used during the Lear 35 thrust run. A calibration 
correction curve was needed due to the difficulty of estimating' the 
frictional forces between the landing gear and the ground which affect 
the load cell reading. The Lear 55 aircraft was tested on the Edwards 
thrust stand rather than the Lear 35, since the Lear 35 flight program 
had been completed prior to facility availability and Singer Corporation 
funding to support the trip to Edwards from Wichita was available only 
for the Lear 55 (an active flight test program at the time). 

Table E.l presents the target stabilized engine test points for 
each engine. The aircraft was secured to the Edwards thrust stand, 
a 15' x 425' load table supported on steel flexures, using the load 
cell/tie down arrangement of Figure 3.17. Load cell and thrust table 
loads were recorded for each test point and a correction curve developed 
based on the difference between the thrust stand value and the load 
cell reading for sequence 1 through 9 test points. Figure E.l presents 
the correction factor data for each engine which was applied to the 
data for the Lear 35 program. A load cell reading for the high thrust 
point on the right engine was not obtained due to a malfunction of the 
cable tie down. Figure E.2 presents data for the entire left engine 
thrust run in which the test points in Table E.l were accomplished in 
ascending order by RPM and then repeated in descending order, as indi- 
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cated by the sequence number, to check for the repeatability and overall 
hysteresis of the load cell/tie down arrangement. As can be seen from 
the figure, considerable hysteresis was observed and, as a result, the 
Lear 35 thrust run was accomplished by sequencing the test points in 
ascending order. The calibration correction curve was based on data 
obtained during the ascending portion of the Lear 55 thrust run. 
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Table E.l: Lear 55 Thrust Run Target Test Points, 

Stabilized Engine (Based on N^) 


Sequence 


IDLE 

1, 

17 


50 

2, 

16 


60 

3, 

15 


70 

A, 

14 


75 

3, 

13 


80 

6, 

12, 

18 

85 

7, 

11, 

19 

90 

8, 

10 


TAKEOFF POWER 

9, 

20 
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Figure E.l: Thrust Run Correction Factor 



Figure E.2: toad Cell and Thrust Stand Comparison, 

Left Engine 
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APPENDIX F 


DATA PLOTS: 

BASELINE AERODYNAMIC CHARACTERISTICS 
SUMMARY 


Figure No. 


Title 




F .1 

Lift 

Characteristics, 

M 

= 

.65, All Available Powers 

F .2 

Lift 

Characteristics , 

M 

= 

.7, All Available Powers 

F .3 

Lift 

Characteristics , 

M 

= 

.75, All Available Powers 

F .4 

Lift 

Characteristics , 

M 

< 

.65, 95% >: N x >_ 75% 

F .5 

Lift 

Characteristics , 

M 

< 

.65, N. = 70% 

F .6 

Lift 

Characteristics , 

M 

< 

.65, 60% > N x > 50% 

F .7 

Drag 

Characteristics, 

M 

= 

.6, All Available Powers 

F.8 

Drag 

Characteristics, 

M 

= 

.65, All Available Powers 

F .9 

Drag 

Characteristics, 

M 

= 

.7, All Available Powers 

F .10 

Drag 

Characteristics, 

M 

= 

.75, All Available Powers 

F.ll 

Drag 

Characteristics, 

M 

< 

.55, N x = 95% 

F.12 

Drag 

Characteristics, 

M 

< 

.55, U = 90% 

F .13 

Drag 

Characteristics, 

M 

< 

.55, 85% 1 N 1 <_ 70% 

F .14 

Drag 

Characteristics, 

M 

< 

.55, N x = 60% 

F .15 

Drag 

Characteristics , 

M 

< 

.55, H = 50% 
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Page intentionally left blank 


STANDARDIZED LIFT COEFFICIENT, C L 


MACH = .65 



o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
° POWER = 80% 
o POWER = 70% 


Figure F.l: Lift Characteristics, M = .65, All Available Powers 



STANDARDIZED LIFT COEFFICIENT/ C L 


MACH = .70 



0 


2.00 


4.00 6.00 8.00 


o 

x 


□ 


POWER = 95% 
POWER = 90% 
POWER = 85% 
POWER = 80% 


ANGLE OF ATTACK, a / DEG 


Figure F.2: Lift Characteristics, M = .7, All Available Powers 



STANDARDIZED LIFT COEFFICIENT, C L 


MACH = . 75 



o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
° POWER = 80% 


Figure F.3: Lift Characteristics, M = .75, All Available Powers 



-.65 



2.00 4.00 6.00 8.00 


o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
d POWER = 80% 
♦ POWER = 75% 


ANGLE OF ATTACK/ a, DEG 


Figure F.4: Lift Characteristics, M< .65, 957«< <15°L 





o POWER = 70% 



Figure F.5: Lift Characteristics, M .65, = 70% 




STANDARDIZED LIFT COEFFICIENT, C L 


MACH = .30 -.65 



ANGLE OF ATTACK, a, DEG 

Figure F.6: Lift Characteristics, M < .65 , 607o > > 50% 


o POWER = 60% 
x POWER = 50% 


STANDARDIZED DRAG COEFFICIENT 



o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
° POWER = 80% 
o POWER = 70% 





STANDARDIZED DRAG COEFFICIENT 


v» 

Q 

O 

% 



POWER = 95% 
POWER = 90% 
POWER = 85% 
POWER = 80% 
POWER = 70% 


ANGLE OF ATTACK, a , DEG 


Figure F.8: Drag Characteristics, M = .65, All Available Powers 
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o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
O POWER = 80% 
o POWER = 70% 


Figure F.9: Drag Characteristics, M = .7, All Available Powers 




STANDARDIZED DRAG COEFFICIENT 


MACH = .75 


o 

c_> 



o POWER = 95% 
x POWER = 90% 
a POWER = 85% 
O POWER = 80% 
o POWER = 70% 


Figure F.10: Drag Characteristics, M = .75, All Available Powers 


STANDARDIZED DRAG COEFFICIENT, C 





8 ££ 

STANDARDIZED DRAG COEFFIC 



Figure F.12: 


Drag Characteristics 


M < . 55 , N 


1 


90% 





o POWER = 85% 
x POWER = 80% 
a POWER = 75% 
O POWER = 70% 


STANDARDIZED DRAG COEFFICIENT, C D 




STANDARDIZED DRAG COEFFICIENT 




APPENDIX G 


LEAR 55 BASELINE ENGINE 
CHARACTERISTICS 


A complete flight test program was accomplished using a Lear 55 
aircraft in conjunction with a subsequent Singer Corporation contract. 
This flight test program extended from February through March 1983 and 
used the same performance modeling test approach developed in this 
report. A thrust run was accomplished on this aircraft using the 
Edwards AFB thrust facility as discussed in Appendix E. The purpose 
of this Appendix is to present the data plots for selected Lear 55 
baseline in-flight engine characteristics to illustrate the lower 
degree of scatter that can be expected when compared to the Lear 35 
program. The engine prediction deck curve is included on each of the 
plots for comparison to the final curve that was faired through the 
data. Figures G.l through G.5 present the corrected gross thrust 
data plots. The maximum scatter experienced for corrected gross thrust 
was approximately ±200 pounds which was primarily observed in the mid- 
Mach range (.45-. 55). Figures G.6 through G.10 present the corrected 
fuel flow data plots. For corrected fuel flow, the same normalization 
techniques using the N power of 5 discussed in Section 3. 2. 1.2 was 
used to eliminate the altitude dependency. N was generally not the 
same value as that used on the Lear 35, since the engines were not 
the same. The maximum scatter experienced for corrected fuel flow 
was approximately ±70 Ibs/hour which was again primarily experienced 
in the mid-Mach range. Figures G.ll through G.15 present the corrected 
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airflow data plots. The maximum scatter experienced was approximately 
±3 lbs/sec again in the mid-Mach range. 
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APPENDIX G SUMMARY 


Figure No. 


G.l 


G. 2 


G. 3 


G. 4 


G. 5 


G. 6 


G.7 


Title 

Lear 55 Corrected Gross Thrust Characteristics, II = .35 

Lear 55 Corrected Gross Thrust Characteristics, M = .45 

Lear 55 Corrected Gross Thrust Characteristics, M = .55 

Lear 55 Corrected Gross Thrust Characteristics, M = .65 

Lear 55 Corrected Gross Thrust Characteristics, M = .75 

Lear 55 Nonstandard Corrected Fuel Flow Characteristics, 
M = .35 

Lear 55 Nonstandard Corrected Fuel Flow Characteristics, 
M = .45 


G. 8 


Lear 55 Nonstandard Corrected Fuel Flow Characteristics, 
M = .55 


G.9 Lear 55 Nonstandard Corrected Fuel Flow Characteristics, 

M = .65 

G.10 Lear 55 Nonstandard Corrected Fuel Flow Characteristics, 

M = .75 


G. 11 

Lear 

55 

Corrected 

Airflow 

Characteristics, 

M = 

.35 

G. 12 

Lear 

55 

Corrected 

Airflow 

Characteristics, 

M = 

.45 

G. 13 

Lear 

55 

Corrected 

Airflow 

Characteristics, 

M = 

.55 

G. 14 

Lear 

55 

Corrected 

Airflow 

Characteristics , 

M = 

.65 

G. 15 

Lear 

55 

Corrected 

Airflow 

Characteristics, 

M = 

.75 
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CORRECTED GROSS THRUST 



9,000 13,000 17,000 21,000 

CORRECTED R?M, — p=L- 

v/eT 


Figure G.2: Lear 55 Corrected Gross Thrust Characteristics, M 




CORRECTED GROSS THRUST 



Figure G.3: Lear 55 Corrected Gross Thrust Characteristics 





CORRECTED GROSS THRUST 



9,000 13,000 17,000 21,000 

CORRECTED RPM, - J?1 • 


Figure G.4: Lear 55 Corrected Gross Thrust Characteristics 





9,000 13,000 17,000 21,000 

CORRECTED RPM, — =L- 


Figure G.5: Lear 55 Corrected Gross Thrust Character ist ics , M 




FUEL FLOW, -=r M LBS/HR 



9,000 13,000 17,000 21,000 25,000 


CORRECTED RPM, ■ ~= ~ 

Figure G.6: Lear 55 Nonstandard Corrected Fuel Flow Characteristics , M = .35 


NONSTANDARD CORRECTED FUEL FLOW, - =; ■ - LBS/HR 


o MACH = .45 flight test data 



9,000 13,000 17,000 21,000 25,000 














CORRECTED AIRFLOW, , LBS/SEC 


o MACH = .35 flight test data 



Figure G.ll: Lear 55 Corrected Airflow Characteristics, M 




^ a v^0~t 

CORRECTED AIRFLOW, — — , LBS/SEC 


o MACH = .55 flight test data 



9,000 13,000 17,000 21,000 25,000 

CORRECTED RPM, — J=L- 

VQ t 

l z 


Figure G.13: Lear 55 Corrected Airflow Characteristics, M = .55 






CORRECTED AIRFLOW, , LBS/SEC 







APPENDIX H 




LEAR 35 

BASELINE ENGINE CHARACTERISTICS 
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APPENDIX H SUMMARY 


Figure No. Title 

H.l Corrected Gross Thrust Characteristics, M = .3 

H.2 Corrected Gross Thrust Characteristics, M = .35 

H.3 Corrected Gross Thrust Characteristics, M = .4 

H. 4 Corrected Gross Thrust Characteristics, M = .45 

H.5 Corrected Gross Thrust Characteristics, M = .5 

H.6 Corrected Gross Thrust Characteristics, M = .6 

H.7 Corrected Gross Thrust Characteristics, M = .65 

H.8 Corrected Gross Thrust Characteristics, M = .7 

H.9 Corrected Gross Thrust Characteristics, M = .75 

H.10 Nonstandard Corrected Fuel Flow Characteristics, 

M = .3 

H. 11 Nonstandard Corrected Fuel Flow Characteristics, 

M = .35 

H.12 Nonstandard Corrected Fuel Flow Characteristics, 

M = .4 

H.13 Nonstandard Corrected Fuel Flow Characteristics, 

M = .45 

H.14 Nonstandard Corrected Fuel Flow Characteristics, 

M = .5 

H.15 Nonstandard Corrected Fuel Flow Characteristics, 

M = .6 

H.16 Nonstandard Corrected Fuel Flow Characteristics, 

M = .65 

H.17 Nonstandard Corrected Fuel Flow Characteristics, 

M = .7 

H.18 Nonstandard Corrected Fuel Flow Characteristics, 

M « .75 
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APPENDIX H SUMMARY (continued) 


Figure No. Title 


H.19 

Corrected 

Airflow 

Characteristics, 

M 

~ 

.3 

H.20 

Corrected 

Airflow 

Characteristics, 

M 

= 

.35 

H. 21 

Corrected 

Airflow 

Characteristics, 

M 

= 

.4 

H. 22 

Corrected 

Airflow 

Characteristics, 

M 

= 

.45 

H. 23 

Corrected 

Airflow 

Characteristics , 

M 

= 

.5 

H. 24 

Corrected 

Airflow 

Characteristics, 

M 

= 

.6 

H. 25 

Corrected 

Airflow 

Characteristics, 

M 

- 

.65 

H. 26 

Corrected 

Airflow 

Characteristics, 

M 

= 

.7 

H. 27 

Corrected 

Airflow 

Characteristics, 

M 

= 

.75 
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CORRECTED GROSS THRUST 



Figure H.l: Corrected Gross Thrust Characteristics, M 




CORRECTED GROSS THRUST 





CORRECTED 6ROSS THRUST 



9,000 13,000 17,000 21,000 

CORRECTED RPM, -i- 

v/eT 


Figure 11.3: Corrected Gross Thrust Characteristics, M 




CORRECTED GROSS THRUST 



Figure H.4: Corrected Gross Thrust Characteristics, M 


CORRECTED 6R0SS THRUST 





CORRECTED GROSS THRUST 



Figure H.6: Corrected Gross Thrust Characteristics, M 




CORRECTED GROSS THRUST 



9,000 13,000 17,000 21, 

CORRECTED RPM, - 


Figure H.7: Corrected Gross Thrust Characteristics 


CORRECTED GROSS THRUST 




CORRECTED GROSS THRUST 



Figure 11.9: Corrected Gross Thrust Characteristics, M 




NONSTANDARD CORRECTED FUEL FLOW, LBS/HR 


o MACH = .30 flight test data (Lear 35) 



Figure H.10: Nonstandard Corrected Fuel Flow Characteristics, 11= .30 


NONSTANDARD CORRECTED FUEL FLOW, - =r u LBS/HR 


o MACH = .35 flight test data (Lear 35) 



CORRECTED RPM, — _ L - 

v/0^ 

Figure II. 11: Nonstandard Corrected Fuel Flow Characteristics, M= .35 



NONSTANDARD CORRECTED FUEL FLOW, —==r M ■ LBS/HR 


o MACH = .40 flight test data (Lear 35) 



Figure 11.12: Nonstandard Corrected Fuel Flow Characteristics, M= .40 



NONSTANDARD CORRECTED FUEL FLOW, -=r u LBS/HR 


o MACH = .45 flight test data (Lear 35) 



CORRECTED RPM, ‘ 


Figure H.13: Nonstandard Corrected Fuel Flow Characteristics, M= .45 



NONSTANDARD CORRECTED FUE 



Figure H.14: Nonstandard Corrected Fuel Flow Characteristics, M 





NONSTANDARD CORRE 



Figure 11.15: Nonstandard Corrected Fuel Flow Characteristics, M 



NONSTANDARD CORRECTED FUEL FLOW, -=r z LBS/HR 


o MACH = .65 flight test data (Lear 35) 



Figure H.16: Nonstandard Corrected Fuel Flow Characteristics, M= .65 


«-■ 


w 



O MACH = .70 flight test data (Lear 35) 



Figure H.17: Nonstandard Corrected Fuel Flow Characteristics, M= .70 










CORRECTED AIRFLOW, , LBS/SEC 


o MACH = .30 flight test data (Lear 35) 



9,000 13,000 17,000 2 . 

CORRECTED RPM, J?l - 

/e t 

C 2 


Figure 11.19: Corrected Airflow Characteristics, M 











Wav/£t7 

CORRECTED AIRFLOW, — , LBS/SEC 


o MACH = .45 flight test data (Lear 35) 



Figure H.22: Corrected Airflow Characteristics, 11 = .45 







CORRECTED AIRFLOW, — , LBS/SEC 


CORRECTED AIRFLOW, , LBS/SEC 


o MACH = .65 flight tost data (Lear 35) 



Figure H.25: Corrected Airflow Characteristics, M 







CORRECTED AIRFLOW, , LBS/SEC 


o MACH = .75 flight test data (Lear 35) 



Figure H.27: Corrected Airflow Characteristics, M 



APPENDIX I 

FLIGHT TRAJECTORY 
PREDICTIONS 
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APPENDIX I SUMMARY 


Figure No. 
1.1 
1.2 

1.3 

1.4 

1.5 

1.6 

1.7 

1.8 

1.9 

1. 10 
1. 11 
1.12 

1.13 

1.14 

1.15 


Title 

MODEL Time Prediction, Profile 4 
MODEL Fuel Used Prediction, Profile 4 
MODEL P Prediction, Profile 4 

O 

MODEL Time Prediction, Profile 5 
MODEL Fuel Used Prediction, Profile 5 
MODEL Pg Prediction, Profile 5 
MODEL Time Prediction, Profile 8 
MODEL Fuel Used Prediction, Profile 8 
MODEL P s Prediction, Profile 8 
MODEL Time Prediction, Profile 9 
MODEL Fuel Used Prediction, Profile 9 
MODEL P s Prediction, Profile 9 
MODEL Time Prediction, Profile 10 
MODEL Fuel Used Prediction, Profile 10 
MODEL Pg Prediction, Profile 10 



TIME ~5EC 



MACW 


Figure 1.1: MODEL Time Prediction , Profile U 
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SQ1~ (n: 







SPECIFIC EXCESS POWER (P5) ~ET/5EC 



39 









Figure 1.8: MODEL Fuel Used Prediction, Profile 8 
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SPECIFIC EXCESS POWER (PS) ~FT/5£C 



400 







FLIGHT OTA 
MODEL PREDICTIONS 
10 PERCENT bN'iD 








MACH 


Figure 1. 11*. MODEL Fuel Used Prediction, Profile 9 
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A 



Figure 1.12: MODEL Prediction, Profile 9 
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Figure 1.13: MODEL Time Prediction, Profile 10 



FUEL USED (FU) - LE>5 



Figure 1.14: MODEL Fuel Used Prediction, Profile 10 
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